關閉 Excel 工作簿時，如何自動保護所有工作表？

作者Siluvia修改日期2024-11-06

一般情況下，您可以手動透過 Excel 的「保護工作表」或「保護活頁簿」功能，為工作表或整個活頁簿設定密碼保護。但若您希望在關閉活頁簿時自動為所有工作表加上密碼保護，該如何操作？本文將為您展示一種透過 VBA 實現此功能的方法。

使用 VBA 程式碼在關閉 Excel 工作表時保護所有工作表

使用 VBA 程式碼在關閉 Excel 工作表時保護所有工作表

若希望在關閉活頁簿時自動保護所有工作表，請套用以下 VBA 程式碼。

1. 在您想要於關閉檔案時保護所有工作表的活頁簿中，請按下 Alt+F11 鍵，以開啟 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，於左側窗格雙擊 ThisWorkbook，再將下方 VBA 程式碼貼上至程式碼視窗中，如下圖所示：

VBA 程式碼：關閉活頁簿時保護所有工作表

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update by Extendoffice 2018/1/24
    Dim xSheet As Worksheet
    Dim xPsw As String
    xPsw = ""
    For Each xSheet In Worksheets
        xSheet.Protect xPsw
    Next
End Sub

提示：

1）在程式碼中，請於 xPsw = “” 這一行指定您的密碼。

2）若您僅希望在關閉活頁簿時自動保護特定工作表，請使用下方的 VBA 程式碼。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Sheet1").Protect "123"
    ActiveWorkbook.Save
End Sub

3. 接著按下 Alt+Q 鍵，即可關閉 Microsoft Visual Basic for Applications 視窗。

完成上述步驟後，當您在關閉活頁簿時，所有工作表或指定的工作表將自動受到保護。

注意事項：

1. 您必須將活頁簿另存為 Excel 啟用巨集的活頁簿文件類型。

2. 請前往目標工作表，點選審閱> 取消保護工作表，然後輸入您在 VBA 程式碼中指定的密碼以解除該工作表的保護。

在當前工作簿中，快速同時以密碼保護多個或所有工作表

Kutools for Excel 保護工作表功能可協助您輕鬆為多個甚至所有工作表一次設定密碼保護！如下圖所示：Kutools for Excel

啟用保護工作表功能
勾選您要一次保護的工作表
設定密碼

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

相關文章：

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多

在您的慣用語言中使用 Kutools—支援英文、西班牙文、德文、法文、中文及另外 40+ 種語言！

運用 Kutools for Excel 強化您的 Excel 技能，體驗前所未有的高效能！Kutools for Excel 提供超過 300 項進階功能，大幅提升生產力並節省寶貴時間。立即點擊，取得您最需要的功能……

Kutools for Excel 詳細資訊……免費下載……

Office Tab 為 Office 帶來分頁式介面，讓您的工作更輕鬆自在！

在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能，以及 Access、Visio 與 Project。
在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
每天為您提升 50% 的工作效率，並省下數百次滑鼠點擊！

Office Tab 詳細資訊……免費下載……

所有 Kutools 增益集，一個安裝程式

Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集，以及 Office Tab Pro，非常適合需要跨多個 Office 應用程式協作的團隊使用！

Excel

Word

Outlook

Tabs

PowerPoint

全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集，以及 Office Tab Pro
一個安裝程式，一個授權— 數分鐘內即可完成設定（支援 MSI）
協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
30 天完整功能試用— 無需註冊，無需信用卡
超值之選— 比單獨購買各增益集更省費用

Kutools for Office 詳細資訊……免費下載……