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