如何在 Excel 中一次性保护多个工作表？

假设你有一个包含多个工作表的工作簿，现在你需要保护所有工作表或某些特定的工作表。通常在 Excel 中，你只能使用“保护工作表”功能逐个保护每个工作表，但如果有很多工作表需要保护，这种方法既繁琐又耗时。如何快速轻松地在 Excel 中一次性保护多个工作表呢？

使用 VBA 代码一次性保护所有工作表

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

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

使用 VBA 代码一次性保护所有工作表

通过以下 VBA 代码，你可以用相同的密码一次性保护当前工作簿中的所有工作表，操作如下：

1. 按住 ALT + F11 键，打开 Microsoft Visual Basic for Applications 窗口。

2. 单击“插入” > “模块”，然后将以下代码粘贴到模块窗口中。

VBA 代码：一次性保护工作簿中的所有工作表：

Sub protect_all_sheets()
top: 
pass = InputBox("password?") 
repass = InputBox("Verify Password") 
If Not (pass = repass) Then 
MsgBox "you made a boo boo" 
Goto top 
End If 
For i = 1 To Worksheets.Count 
If Worksheets(i).ProtectContents = True Then Goto oops 
Next 
For Each s In ActiveWorkbook.Worksheets 
s.Protect Password:=pass 
Next 
Exit Sub 
oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets then running this Macro." 
End Sub

3. 然后按 F5 键运行代码，并在弹出框中输入受保护工作表的密码，参见截图：

4. 单击“ 确定”，然后再次输入密码以确认密码。

5. 然后单击“确定”，所有工作表都已使用相同的密码进行保护。

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

有时，你并不想保护工作簿中的所有工作表，而只想保护某些特定的工作表，在这种情况下，上述代码将不起作用。但是，使用 Kutools for Excel 的“保护工作表”工具，你可以快速轻松地保护所有工作表和特定工作表。

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

1. 单击 Kutools Plus > 保护工作表，参见截图：

2. 在“保护工作表”对话框中，选择要保护的工作表。（默认情况下，当前工作簿中的所有工作表都被选中。）参见截图：

3. 然后单击“确定”，并在“保护工作表”对话框中输入并确认密码。参见截图：

4. 然后单击“确定”，所选工作表已被保护。

单击“保护工作表”以了解更多关于此功能的信息。

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

如何同时取消保护工作簿中的多个受保护工作表？当然，Kutools for Excel 还提供了“取消保护工作表”工具，可以让你一次性取消保护它们。

请按照以下步骤操作：

1. 打开包含受保护工作表的工作簿。

2. 然后单击 Kutools Plus > 取消保护工作表，参见截图：

3. 在“取消保护工作表”对话框中，受保护的工作表被列在列表框中，然后单击“确定”按钮，参见截图：

4. 然后会弹出一个“取消保护工作表”对话框，提醒你输入用于保护工作表的密码，参见截图：

5. 输入密码后，单击“ 确定”，列表框中所有选中的工作表都已被取消保护。

注意：这些工作表必须具有相同的密码。

了解更多关于此“取消保护工作表”功能的信息。

演示：使用 Kutools for Excel 一次性保护或取消保护所有工作表

相关文章：

如何在 Excel 中一次性取消保护多个工作表？