[Excel Macro 巨集] 如何一次顯示所有隱藏的工作表

工作上經常要使用 Excel 的朋友，想必有過一個檔案裡面太多張工作表，而把一張張不太會編輯到的工作表隱藏起來的經驗吧？！或是原始建立檔案的人，為了不讓收到檔案的人覺得很複雜，便把一些單純參照的工作表隱藏起來，隱藏的時候很方便，可以一次選取所有要隱藏的表執行，但當想要把這些取消隱藏時，卻只能一個一個表點，表的數量少還好，只要遇上超過十幾頁的，尤其檔案一多，就會覺得很麻煩，偏偏微軟就是沒有取消全部隱藏的功能，因此只能靠巨集來克服，只要簡單幾個步驟，以後就只要按幾個鍵，就能達到取消全部隱藏的目的囉！

1. 第一步當然是打開 Excel，之後同時按住 Alt + F11，Microsoft Visual Basic 應用程式視窗就會打開，點選最上排的『插入』>『模組』，叫出空白程式碼視窗

2. 將下面的程式碼複製貼上到程式碼視窗中，若要馬上執行，直接按 F5，所有隱藏的工作表便會被叫出來，或是將此巨集儲存，以後可以直接執行

==========================================
1        Sub UnhideAllSheets()
2            Dim ws As Worksheet
3      
4            For Each ws In ActiveWorkbook.Worksheets
5                ws.Visible = xlSheetVisible
6            Next ws
7  
8        End Sub

==========================================

3. 往後便可直接到『開發人員』下面的『巨集』，執行剛剛建立的程式碼，便可顯示所有隱藏的工作表囉！