如何在Excel中一次性保护文件夹中的所有工作簿？

在Excel中，您可以保护工作簿以防止其他用户编辑它，但您是否想过一次性保护多个工作簿呢？在这里，我将介绍一些技巧，帮助您保护文件夹中的所有工作簿以及工作簿中的多个工作表。

使用VBA一次性保护文件夹中的工作簿

使用Kutools for 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

2. 按下 F5 键，弹出一个 选择文件夹 窗口，供您选择一个文件夹以保护其中的所有工作表。

3. 点击 确定 并弹出一个对话框，用于输入保护工作簿的密码。

4. 点击 确定，弹出一个对话框，提醒您所选文件夹中的所有工作簿已成功通过一个密码进行保护。

当您打开通过上述代码保护的工作簿时，会弹出一个对话框要求输入密码。请参见截图：

提示：此代码适用于2007或更高版本的Excel。如果您想将其应用于保护较低版本，可以在代码中将 xFile = "*.xls" 更改为 xFile = "*.xlsx"。

使用Kutools for Excel一次性保护多个工作表

实际上，在我们的日常工作中，更常见的是保护工作簿中的多个工作表。但在Excel中，您需要使用其内置功能逐一保护工作表。然而，有一个强大的工具——Kutools for Excel，它的 保护工作表功能可以帮助您一次性保护工作簿中的所有工作表或选定的工作表。

免费安装 Kutools for Excel 后，请按照以下步骤操作：

1. 启用您想要保护其工作表的工作簿，并点击 Kutools Plus > 保护工作表 > 保护工作表。

2. 在 保护工作表 对话框中，您可以根据需要从列表中勾选要保护的工作表。请参见截图：

3. 点击 确定，另一个对话框弹出，供您输入和重新输入密码，请参见截图：

4. 点击 确定，弹出一个对话框，提醒您成功保护了工作表。