如何在 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 中一次取消保護多個工作表？