如何用VBA隐藏和取消隐藏工作表

Question

如题所述

Answer 1

有三种方法：
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的效果。