Excel VBA 如何批量取消工作表的隐藏
- 2026-11-13 23:43:03
Excel VBA 如何批量取消工作表的隐藏问： 答： 通过循环遍历工作簿中的所有工作表，并将它们的
如何批量取消工作表的隐藏？
手动操作比较慢，需要一个一个的操作。
Visible属性设置为 xlSheetVisible。Sub UnhideAllSheets()Dim ws As WorksheetApplication.ScreenUpdating = False ' 关闭屏幕刷新提高速度For Each ws In ThisWorkbook.WorksheetsIf ws.Visible <> xlSheetVisible Thenws.Visible = xlSheetVisibleEnd IfNext wsApplication.ScreenUpdating = True ' 恢复屏幕刷新MsgBox "所有工作表已取消隐藏！", vbInformationEnd Sub
使用说明：
按 Alt + F11打开 VBA 编辑器
在左侧项目窗口中，右键单击你的工作簿
选择"插入" → "模块"
将上述任一代码粘贴到新模块中
按 F5运行宏，或通过 Excel 的宏对话框运行
注意事项：
工作簿必须处于非保护状态才能修改工作表可见性
如果工作表是"非常隐藏"(xlSheetVeryHidden)，普通用户无法通过界面取消隐藏
使用 Application.ScreenUpdating = False可以显著提高大工作簿的处理速度
在运行前建议保存工作簿，以防意外
本文来自网友投稿或网络内容，如有侵犯您的权益请联系我们删除，联系邮箱：wyl860211@qq.com 。
