Sub 顯示隱藏的表()

Dim i As Integer

For i = 1 To Sheets.Count

Sheets(i).Visible = True

Next

End Sub

（2）ALT+F8，選中“ 顯示隱藏的表 ”——執行

（4）儲存。由於前邊的步驟又給工作表增加了一個宏，所以儲存的時候按方法下面方法執行，去掉宏。

開啟後另存，儲存型別為：EXCEL工作簿。再次開啟這個檔案，繼續另存，儲存型別選：excel 97-2003工作簿。

另一方法

1）在Excel中按 Alt+F11 開啟宏編輯器；

2）在宏編輯器中按 Ctrl+R 開啟 工程資源管理面板；

3）在工程資源管理面板中找到你的那個檔案，點開，檢查是否存在“模組n”（n為1、2……），在這些模組上逐個點右鍵，“移除模組n”

5）最後儲存，即可。