Как определить содержит ли рабочая книга скрытые листы?

Категория: Basic
2012-07-09 15:21:09

Если Вам необходимо определить содержит ли открытая книга скрытые листы (причём не обязательно рабочие), то в таком случае можно воспользоваться нижеопубликованной функцией (пример вызова прилагается):

code: #vba
Private Function IsHiddenSheet(iName$) As Boolean
    Dim iSheet As Object
    For Each iSheet In Workbooks(iName$).Sheets
        If Not iSheet.Visible Then
           IsHiddenSheet = True
           Exit Function
        End If
    Next
    IsHiddenSheet = False
End Function
 
Private Sub Test()
    MsgBox IsHiddenSheet("Имя_рабочей_книги.xls")
End Sub
Поделиться:

Похожие статьи:

теги: excel, vba, макросы, рабочая книга, рабочий лист, скрытый лист