可通过运行VBA宏批量取消隐藏所有工作表:先按Alt+F11打开编辑器,插入模块后粘贴UnhideAllSheets代码,保存为.xlsm格式,再按Alt+F8运行宏或设Ctrl+U快捷键执行。

如果您在Excel中隐藏了多个工作表,需要快速恢复所有被隐藏的工作表,则可以通过运行一段简短的VBA宏代码实现批量取消隐藏。以下是具体操作步骤:
一、打开Excel的VBA编辑器并插入新模块
该步骤用于创建可执行的宏环境,确保代码有位置存放并能被调用。VBA编辑器是运行自定义脚本的基础平台。
1、按 Alt + F11 组合键,打开Visual Basic for Applications编辑器。
2、在左侧“工程资源管理器”中,右键单击当前工作簿名称(如 VBAProject (Book1.xlsm))。
3、选择插入 → 模块,新建一个标准模块。
二、粘贴并输入取消隐藏全部工作表的VBA代码
该代码遍历当前工作簿中的每一个工作表,并将其Visible属性设为xlSheetVisible,从而强制解除所有隐藏状态。
1、在右侧代码窗口中,完整输入以下代码:
Sub UnhideAllSheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub
三、保存文件为启用宏的格式
Excel默认不支持在.xlsx文件中运行宏,必须将文件另存为支持VBA的格式,否则代码无法保存或执行。
1、关闭VBA编辑器,返回Excel主界面。
2、点击文件 → 另存为 → 浏览,选择保存位置。
3、在“保存类型”下拉菜单中,选择Excel启用宏的工作簿 (*.xlsm)。
4、点击保存按钮确认。
四、运行宏以批量取消隐藏所有工作表
执行已编写完成的宏命令,触发对全部工作表可见性属性的批量修改。
1、按 Alt + F8 打开宏对话框。
2、在列表中选中UnhideAllSheets,点击运行按钮。
3、观察底部工作表标签栏,所有此前隐藏的工作表将立即显示出来。
五、使用快捷键快速运行宏(可选增强方式)
为避免每次调用都需打开宏对话框,可为该宏指定快捷键,提升重复操作效率。
1、再次按 Alt + F8,选中UnhideAllSheets。
2、点击选项按钮,在弹出窗口中输入任意字母(如U)作为快捷键。
3、点击确定后,此后只需按Ctrl + U即可一键执行取消隐藏操作。










