如何批量取消工作表的隐藏？
手动操作比较慢，需要一个一个的操作。
通过循环遍历工作簿中的所有工作表，并将它们的 Visible属性设置为 xlSheetVisible。Sub UnhideAllSheets() Dim ws As Worksheet Application.ScreenUpdating = False ' 关闭屏幕刷新提高速度 For Each ws In ThisWorkbook.Worksheets If ws.Visible <> xlSheetVisible Then ws.Visible = xlSheetVisible End If Next ws Application.ScreenUpdating = True ' 恢复屏幕刷新 MsgBox "所有工作表已取消隐藏！", vbInformationEnd Sub
使用说明：
按 Alt + F11打开 VBA 编辑器
在左侧项目窗口中，右键单击你的工作簿
选择"插入" → "模块"
将上述任一代码粘贴到新模块中
按 F5运行宏，或通过 Excel 的宏对话框运行
注意事项：
工作簿必须处于非保护状态才能修改工作表可见性
如果工作表是"非常隐藏"(xlSheetVeryHidden)，普通用户无法通过界面取消隐藏
使用 Application.ScreenUpdating = False可以显著提高大工作簿的处理速度
在运行前建议保存工作簿，以防意外
