1
2
3
4
5
6
7
8
9
10
11
12
13
14
※通過VBA代碼取消隱藏所有隱藏的工作表
1。 按住 Alt + F11鍵，然後打開 Microsoft Visual Basic for Applications 窗口。
2。 點擊 插入 > 模組，然後將以下語法貼到視窗中。

Sub UnhideAllSheets()
　　Dim ws As Worksheet

　　For Each ws In ActiveWorkbook.Worksheets
　　　　ws.Visible = xlSheetVisible
　　Next ws

End Sub

3。 按 F5 運行。 隱藏的工作表將立即顯示。