如何用vba遍历一个excel表格中的所有非隐藏工作表，隐藏工作表不管现在有一个excel表格，表格里面有大量的隐藏工作表，而显示的工作表只有四五个，现要遍历各工作表进行操作。如果遍历...
如何用vba遍历一个excel表格中的所有非隐藏工作表，隐藏工作表不管
现在有一个excel表格，表格里面有大量的隐藏工作表，而显示的工作表只有四五个，现要遍历各工作表进行操作。如果遍历所有工作表的话，效率将会很慢，所以想问，如何能做到只遍历显示的工作表
1、直接在Sheet2标签上点右键，弹出的菜单上面有个“隐藏”，点后就可以隐藏它了，想取消隐藏直接在其它工作表标签上点右键——取消，选想取消隐藏的工作表即可。这种方法较方便，取消也方便。当然也可以保护工作薄让人无法轻易取消隐藏。
2、可以用Alt+F11 打开VBA编辑器，在左侧上方，选中Sheet2，然后在左下方的属性框内，将Visible（最下面）设成“0－XlsheetHidden”即第二个。也可以实现隐藏Sheet2
3、按Alt+F11 打开VBA编辑器，在左侧上方，选中ThisWorkBook，复制代码
Private Sub Workbook_Open()
Sheet2.Visible = xlSheetVeryHidden
End Sub
到右边空白处，保存工作薄，重启时启用宏，也可以实现隐藏Sheet2的效果。
参考资料里含操作图，也是我答的。
