Question

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

Answer 1

有三种方法：

1、直接在Sheet2标签上点右键，弹出的菜单上面有个“隐藏”，点后就可以隐藏它了，想取消隐藏直接在其它工作表标签上点右键——取消，选想取消隐藏的工作表即可。这种方法较方便，取消也方便。当然也可以保护工作薄让人无法轻易取消隐藏。

2、可以用Alt+F11打开VBA编辑器，在左侧上方，选中Sheet2，然后在左下方的属性框内，将Visible（最下面）设成“0－XlsheetHidden”即第二个。也可以实现隐藏Sheet2

3、按Alt+F11打开VBA编辑器，在左侧上方，选中ThisWorkBook，复制代码 PrivateSubWorkbook_Open() Sheet2.Visible=xlSheetVeryHidden EndSub 到右边空白处，保存工作薄，重启时启用宏，也可以实现隐藏Sheet2的效果。

Answer 2

假设要隐藏第2个工作表

Sub hide_worksheet()

Sheets(2).Visible = False

End Sub

取消隐藏就把false改为true

Answer 3

Sub s()
    Sheets("Sheet1").Visible = False '隐藏工作表
    Sheets("Sheet1").Visible = True '取消隐藏工作表
End Sub

Answer 4

如果需要删除隐藏行的表格多的话，一般的Excel界面操作是实现不了的，需要借助VBA或是专门应用。以下推荐两种快速方法：

（1）可以使用VBA代码的方法删除，打开VBE，将下列代码贴到新建的宏中，然后执行宏，隐藏的工作表就全删除了。

Sub 删除所有隐藏工作表()
Dim i As Integer
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1

If Sheets(i).Visible = False Then
Sheets(i).Delete
Else
End If
Next i

ActiveWorkbook.Save

End Sub

（2）可以使用专门删除隐藏工作簿的应用处理，还可以多个excel工作簿一起操作，很快。
Excel表格格式批量操作应用