如何在 Excel 中一次保護資料夾內的所有活頁簿？

作者孫修改日期2024-08-07

在 Excel 中，您可以保護活頁簿，防止他人編輯；但您是否想過一次保護多個活頁簿？本文將介紹幾種實用技巧，協助您輕鬆一次保護資料夾內的所有活頁簿，以及單一活頁簿中的多個工作表。

使用 VBA 一次保護資料夾中的活頁簿

若要保護特定資料夾中的活頁簿，只需套用巨集程式碼即可輕鬆達成。

1. 啟用新工作簿，按下 Alt + F11 鍵以開啟 Microsoft Visual Basic for Applications 視窗，點選插入 > 模組，並將下方程式碼貼入模組腳本中。

VBA：保護資料夾內的活頁簿。

Sub ProtectAll()
    Dim xWorkBooks As Workbook
    Dim xExitFile As String
    Dim xPassWord As Variant
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then
        Exit Sub
    Else
        xStrPath = xStrPath + "\"
    End If
    xPassWord = Application.InputBox("Enter password", "Kutools for Excel", , , , , , 2)
    If (xPassWord = False) Or (xPassWord = "") Then
        MsgBox "Password cannot be blank!", vbInformation, "Kutools for Excel"
        Exit Sub
    End If     xFile = "*.xls"
    xExitFile = Dir(xStrPath & xFile)
    On Error Resume Next
    Application.ScreenUpdating = False
    Do While xExitFile <> ""
        Set xWorkBooks = Workbooks.Open(xStrPath & xExitFile)
        Application.DisplayAlerts = False
        xWorkBooks.SaveAs Filename:=xWorkBooks.FullName, Password:=xPassWord
        Application.DisplayAlerts = True
        Workbooks(xExitFile).Close False
        Set xWorkBooks = Nothing
        xExitFile = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "Successfully protect!", vbInformation, "Kutools for Excel"
End Sub

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

顯示如何使用 VBA 程式碼的螢幕截圖

2. 按下 F5 鍵後，隨即彈出一個選擇文件夾視窗，供您選取文件夾以保護其中所有工作表。
doc protect all workbooks a folder 2

3. 按一下確定後，隨即彈出一個對話方塊，要求輸入密碼以保護活頁簿。
輸入密碼以保護活頁簿的螢幕截圖

4. 按一下確定後，隨即彈出一個對話方塊，提醒您已成功使用同一組密碼保護所選資料夾中的所有活頁簿。
顯示活頁簿已成功保護之提示方塊的螢幕截圖

當您開啟以上述程式碼保護的活頁簿時，系統會彈出對話方塊，要求您輸入密碼。請參閱以下截圖：
開啟活頁簿時出現的密碼提示方塊螢幕截圖

提示：此程式碼適用於 Excel 2007 或更高版本。若需用於較舊版本，請將程式碼中的 xFile = "*.xls"改為 xFile = "*.xlsx"。

使用 Kutools for Excel 一次保護多個工作表

事實上，在日常工作中，我們經常需要一次保護活頁簿中的多個工作表。然而，Excel 內建功能僅能逐一保護各工作表，操作繁瑣耗時。現在，有了強大工具──Kutools for Excel，其保護工作表功能可讓您輕鬆一次保護整個活頁簿或所選的多個工作表，大幅提升效率！

安裝免費版 Kutools for Excel 後，請依照以下步驟操作：

1. 開啟您要保護工作表的活頁簿，然後點選 KUTOOLS PLUS> 保護工作表> 保護工作表。

2. 在保護工作表對話方塊中，您可以從清單勾選需要保護的工作表。請參閱下方截圖：
一次選取多個欲保護的工作表之螢幕截圖

3. 按一下確定後，隨即彈出另一個對話方塊，供您輸入並再次確認密碼。請參閱截圖：
輸入密碼的螢幕截圖

4. 按一下確定後，隨即彈出對話方塊，提醒您已成功保護工作表。
顯示成功的螢幕截圖

最佳 Office 生產力工具

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