1、打开含有多个工作表的Excel表格，如下图所示
2、按下Alt+F11组合键，打开VBA编辑界面，点击左侧任意工作表，出现右侧空白的代码编辑区，如下图所示。
3、编写代码：
Sub 鱼木混猪()
For Each s In Sheets
s.Visible = 0
Next
End Sub
代码的作用是将所有可能隐藏的工作表都隐藏，如下图所示。
4、将光标放在代码中间，点击“运行子程序”，如下图所示。
5、此时，会出现一个错误警告，因为无法隐藏全部工作表，故点击确定，忽略即可。回到Excel，可以看到除了剩余的一个工作表，其余都隐藏了，如下图所示。
1、1.打开Excel表格；
2.按下Alt+F11；
3.输入代码，主要代码为：
For Each s In Sheets
s.Visible = 0
4.点击“运行子程序”；
5.在警告弹出点击确定，回到Excel可以看到除一个工作表外都隐藏了。
