如何自動保護所有工作表並在關閉 Excel 工作簿時進行保護？

通常，在 Excel 中使用保護是為了防止使用者編輯它。但是，我們總是會忘記保護工作表，但我們可以透過使用 VBA 應用程式來自動化它。本教程將幫助您瞭解如何自動保護所有工作表並在關閉 Excel 工作簿時進行保護。保護工作表沒什麼特別的；工作表將處於只讀模式，我們將無法編輯工作表的內容。在本教程中，我們將使用儲存工作簿命令儲存整個工作簿。

自動保護所有工作表並在關閉 Excel 工作簿時進行保護

在這裡，我們將為整個工作簿以及密碼插入 VBA 程式碼。讓我們看看一個簡單的過程，瞭解如何自動保護所有工作表並在關閉 Excel 工作簿時進行保護。我們將使用 VBA 應用程式來完成我們的過程。

步驟 1

讓我們考慮一個包含多個工作表的 Excel 工作簿，右鍵單擊工作表名稱並選擇“檢視程式碼”以開啟 VBA 應用程式。然後雙擊此工作簿並將下面提到的程式複製到文字框中，如下面的影像所示。

示例

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update by Nirmal
   Dim xSheet As Worksheet
   Dim xPsw As String
   xPsw = "1234"
   For Each xSheet In Worksheets
      xSheet.Protect xPsw
   Next
End Sub

在上面的程式碼中，1234 是解鎖工作簿的密碼。

步驟 2

現在將工作表另存為宏啟用模板，使用“Alt + Q”命令關閉 VBA 應用程式，然後關閉工作簿。從現在開始，當我們嘗試編輯工作表時，將出現錯誤訊息，如下面的影像所示。

我們可以透過單擊“取消保護”並輸入密碼1234來解鎖工作表。

結論

在本教程中，我們使用了一個簡單的示例來演示如何自動保護所有工作表並在關閉 Excel 工作簿時進行保護。

Pradeep Kumar

更新於：2023年1月11日

3K+ 瀏覽量

開啟你的 職業生涯

透過完成課程獲得認證

開始學習