可通过VBA批量取消隐藏Excel工作表：一、For Each循环设Visible为xlSheetVisible；二、For循环按索引处理；三、增强版跳过xlSheetVeryHidden并提示；四、一键按钮调用加错误处理。
如果您在Excel中拥有大量隐藏的工作表，手动逐个取消隐藏效率低下，可以通过VBA循环批量修改工作表的Visible属性来实现快速恢复。以下是具体操作步骤：
一、使用For Each循环遍历所有工作表并设为xlSheetVisible
该方法通过遍历当前工作簿中的每一个工作表对象，将其Visible属性直接设置为xlSheetVisible，适用于所有非“非常隐藏”（xlSheetVeryHidden）状态的工作表。
1、按Alt+F11打开VBA编辑器。
2、在左侧“工程资源管理器”中，双击对应工作簿下的ThisWorkbook模块。
3、在代码窗口中粘贴以下代码：
Sub UnhideAllSheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub
4、将光标置于代码中任意位置，按F5运行宏。
二、使用For循环配合Worksheets.Count逐个索引处理
该方法利用工作表索引号从1开始递增至总数量，逐个访问并修改Visible属性，逻辑清晰，便于加入条件判断或调试输出。
1、在VBA编辑器中新建一个标准模块（右键工程资源管理器 → 插入 → 模块）。
2、粘贴以下代码：
Sub UnhideByIndex()
Dim i As Integer
For i = 1 To ThisWorkbook.Worksheets.Count
ThisWorkbook.Worksheets(i).Visible = xlSheetVisible
Next i
End Sub
3、运行该宏即可完成全部工作表的可见性设置。
三、增强版：跳过xlSheetVeryHidden工作表并提示用户
某些工作表可能被设为“非常隐藏”，直接赋值xlSheetVisible会报错；本方案先检查当前可见性状态，仅对xlSheetHidden类型执行取消隐藏，并在立即窗口输出被跳过的表名。
1、插入新模块后粘贴如下代码：
Sub SafeUnhideAll()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Visible = xlSheetHidden Then
ws.Visible = xlSheetVisible
ElseIf ws.Visible = xlSheetVeryHidden Then
Debug.Print "已跳过非常隐藏工作表：" & ws.Name
End If
Next ws
End Sub
2、运行前确保“立即窗口”已开启（按Ctrl+G），以便查看跳过提示。
四、一键式：添加按钮调用宏并禁用错误中断
为避免因个别工作表权限或保护状态导致运行中断，此方案启用On Error Resume Next机制，并通过表单控件按钮触发，提升实用性与容错性。
1、在Excel界面中，切换至“开发工具”选项卡 → “插入” → 选择“按钮（窗体控件）”。
2、在工作表上绘制按钮，弹出“指定宏”对话框时，选择SafeUnhideAll（或任一已定义宏）。
3、在对应宏开头添加错误处理语句：
Sub SafeUnhideAll()
On Error Resume Next
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
On Error GoTo 0
End Sub
