KutoolsforOffice — 一套方案,五大工具。事半功倍。三月特賣:20% 折扣

如何在 Excel 中自動保護特定的工作表?

作者Xiaoyang修改日期

保護工作表能有效防止他人修改內容,但有時您仍需編輯已受保護的工作表。此時,必須先解除保護,完成修改後再重新啟用保護。然而,多數使用者在編輯完畢後容易忘記重新保護工作表。本文將為您介紹幾種方法,協助自動重新保護工作表。

使用 VBA 程式碼自動保護特定工作表

使用 Kutools for Excel 自動保護特定工作表


使用 VBA 程式碼自動保護特定工作表

Excel 中沒有其他直接方法可自動重新保護特定工作表,因此您可以撰寫一段 VBA 程式碼來滿足此需求。完成工作表內容的修改後,請依照下列步驟操作:

1. 按住 ALT + F11 鍵,即可開啟 Microsoft Visual Basic for Applications 視窗

2. 接著點擊左側 ThisWorkbook,在專案總管中雙擊以開啟模組,然後將以下 VBA 程式碼複製並貼上至空白模組中:

VBA 程式碼:自動保護特定工作表

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If MsgBox("Reprotect Sheet Main?", vbYesNoCancel) = vbYes Then
        Sheets("Main").Protect ("123456")
    End If
End Sub

將 VBA 程式碼複製並貼上至 ThisWorkbook 模組

3. 執行此程式碼後,系統會彈出提示方塊,詢問您是否要重新保護此特定工作表,如下圖所示:

跳出提示方塊,詢問是否要重新保護此特定工作表

4. 接著點擊按鈕,再次保護此工作表。此時,您需將此活頁簿儲存為 Excel 啟用巨集的活頁簿格式。從此以後,每當您儲存或關閉此活頁簿時,上述提示方塊都會自動出現,提醒您自動保護指定的工作表。

注意:在上述程式碼中,文字 Main 為您要重新保護的工作表名稱,數字 123456 則是該工作表的保護密碼,可依需求自行修改。


使用 Kutools for Excel 自動保護特定工作表

若您已安裝 Kutools for Excel,即可運用其工作表設計功能,無需撰寫任何 VBA 程式碼,就能快速輕鬆地修改受保護的工作表,並自動重新啟用保護!

Kutools for Excel 提供超過 300 項進階功能,簡化複雜作業,提升創造力與效率。整合 AI 功能,Kutools 能精準自動化各項任務,讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊……         免費試用……

安裝 Kutools for Excel 後,請依照下列步驟操作:

1. 前往您的受保護工作表,然後點擊 KUTOOLS PLUS> 工作表設計,此時功能區中會顯示一個新的設計選項卡,如下圖所示:

點擊 Kutools 的「工作表設計」功能
向下箭頭
功能區上會顯示新的「設計」索引標籤

2. 在設計選項卡下,點擊設定選項(位於)選項群組中),在彈出的設計工具選項對話方塊中,請勾選打開設計工具前解鎖工作表選項與關閉設計工具前保護工作表選項(位於)保護區段),然後在 使用密碼 t文字方塊中輸入您受保護工作表的密碼,如下圖所示:

點擊「設定」選項向右箭頭勾選「開啟設計工具前取消保護工作表」和「關閉設計工具前保護工作表」兩個選項

3. 完成上述設定後,點擊確定關閉對話方塊,再點擊關閉工作表設計以退出工作表設計模式,讓此功能立即生效。如下圖所示:

點擊「關閉工作表設計」

4. 在受保護的工作表中,請點擊 KUTOOLS PLUS> 工作表設計,即可解除保護並依需求修改內容;完成編輯後,請點擊關閉工作表設計,再次保護此工作表。

立即下載並免費試用 Kutools for Excel!


相關文章:

如何在 Excel 中一次保護多個工作表?

如何在 Excel 中一次解除多個工作表的保護?

如何設定密碼來保護您的活頁簿?

最佳 Office 生產力工具

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

運用 Kutools for Excel 強化您的 Excel 技能,體驗前所未有的高效能!Kutools for Excel 提供超過 300 項進階功能,大幅提升生產力並節省寶貴時間。立即點擊,取得您最需要的功能……


Office Tab 為 Office 帶來分頁式介面,讓您的工作更輕鬆自在!

  • 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能,以及 Access、Visio 與 Project。
  • 在同視窗的新分頁中開啟並建立多份文件,而非另開新視窗。
  • 每天為您提升 50% 的工作效率,並省下數百次滑鼠點擊!

所有 Kutools 增益集,一個安裝程式

Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集,以及 Office Tab Pro,非常適合需要跨多個 Office 應用程式協作的團隊使用!

ExcelWordOutlookTabsPowerPoint
  • 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集,以及 Office Tab Pro
  • 一個安裝程式,一個授權— 數分鐘內即可完成設定(支援 MSI)
  • 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
  • 30 天完整功能試用— 無需註冊,無需信用卡
  • 超值之選— 比單獨購買各增益集更省費用