VBA 如何发现EXCEL工作簿里是否有深度隐藏工作表

 

1 如果有的工作表sheet设置了  visible属性为 xlsheetVeryHide

• visible属性，设置为  xlsheetVeryHide  -2
• 不光在excel 列表里 无法看到
• 在sheet表右键点菜单，也不会出现 取消隐藏，也就是无法通过 菜单呼出

 

 

 

2  方法1：在VBE编辑器内能看到深度隐藏的worksheet

 

 

3 方法2，写个VBA运行下 worksheets.count 会统计深度隐藏的sheet

 

Sub test_select1()

Dim arr1()

ReDim arr1(1 To Worksheets.Count)
For i = 1 To Worksheets.Count
    arr1(i) = Worksheets(i).Name
Next

For Each i In arr1
   Debug.Print i
Next

End Sub

 

 

3  推论，写个VBA运行下 wsheets.count 会统计深度隐藏的sheet 和chart等吧？