如何在開啟 Excel 檔案時自動隱藏特定的工作表？

如果需要在有人開啟工作簿時自動隱藏某些特定的工作表，該如何在 Excel 中處理這個任務呢？

使用 VBA 程式碼在開啟工作簿時自動隱藏特定工作表

使用 VBA 程式碼在開啟工作簿時自動隱藏某些特定工作表

使用 VBA 程式碼在開啟工作簿時自動隱藏特定工作表

如果您想在開啟工作簿時隱藏某個特定的工作表，可以應用以下的 VBA 程式碼。

1. 按住 ALT + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

2. 在左側的 Project-VBAProject 窗格中，雙擊 ThisWorkbook 以打開一個空白模組，然後將以下程式碼複製並粘貼到模組中：

VBA 程式碼：在開啟工作簿時隱藏特定工作表：

Private Sub Workbook_Open()
Sheets("Sheet5").Visible = False
End Sub

注意：在上述程式碼中，Sheet5 是您希望在開啟時隱藏的工作表名稱。請根據需要進行更改。

3. 然後保存並關閉此程式碼視窗，並點擊 文件 > 另存為 將此工作簿保存為啟用宏的工作簿格式，參見截圖：

4. 當您下次打開此工作簿時，請先點擊 啟用內容 按鈕，然後指定的工作表將自動隱藏。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

使用 VBA 程式碼在開啟工作簿時自動隱藏某些特定工作表

如果有許多工作表需要在打開工作簿時隱藏，這裡還有一段程式碼可以幫助您。

1. 首先，您應該在一張工作表的列表中列出您希望在開啟時隱藏的工作表名稱，然後前往 名稱框 為它們指定一個儲存格名稱-SheetsToHide，並按 Enter 鍵，參見截圖：

2. 然後按住 ALT + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

3. 在左側的 Project-VBAProject 窗格中，雙擊 ThisWorkbook 以打開一個空白模組，然後將以下程式碼複製並粘貼到模組中：

VBA 程式碼：在開啟工作簿時隱藏某些特定工作表：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   'Updateby Extendoffice 20161206
    Dim ws As Worksheet
    For Each ws In Worksheets
       ws.Visible = xlSheetVisible
    Next ws
End Sub
Private Sub Workbook_Open()
    Dim ws As Worksheet
        For Each ws In Worksheets
            If WorksheetFunction.CountIf([SheetsToHide], ws.Name) > 0 Then
                ws.Visible = xlSheetHidden
                MsgBox ws.Name & "Has been hidden!", vbInformation, "Kutools for Excel"
            Else
                ws.Visible = xlSheetVisible
            End If
        Next ws
    Set ws = Nothing
End Sub

注意：在上述程式碼中，SheetsToHide 是您在步驟 1 中創建的儲存格名稱。

4. 然後保存並關閉此程式碼視窗，並點擊 文件 > 另存為 將此工作簿保存為啟用宏的工作簿格式。從現在起，當您下次打開此工作簿時，指定的工作表將自動隱藏。