快速显示所有隐藏的Excel工作表

快速显示所有隐藏的Excel工作表

http://www.excel123.cn/Article/excelvba/201011/769.html

如果Excel工作簿中包含许多隐藏的工作表，要显示隐藏的工作表，通常的方法是单击菜单“格式→工作表→取消隐藏”（Excel 2003）或右击工作表标签，在弹出的快捷菜单中选择“取消隐藏”（Excel 2007/2010）。然后在“取消隐藏”对话框中逐一选择工作表取消其隐藏。但每次只能取消一个工作表的隐藏，当隐藏的工作表数量较多时，逐一这样操作稍显繁琐。实际上，用一行简单的VBA代码即可快速显示工作簿中所有隐藏的工作表。方法是：

按Alt+F11，打开VBA编辑器，单击菜单“视图→立即窗口”，或按Ctrl+G，打开“立即窗口”，在其中输入：

For Each s in sheets : s.Visible = True : Next

然后按回车键运行代码，Excel会将工作簿中所有工作表（包括图表工作表）的“Visible”属性设置为“TRUE”，即显示所有隐藏的工作表。

本文来源：https://www.wddqw.com/doc/6c467a43c850ad02de8041f5.html