如何檢查 Excel 中的工作表或活頁簿是否已受保護？

作者Siluvia修改日期2024-11-19

想確認 Excel 中特定工作表或活頁簿是否受到保護嗎？本文將協助您輕鬆完成檢查。

使用 VBA 程式碼檢查工作表是否受保護
 使用 VBA 程式碼檢查活頁簿是否受保護

使用 VBA 程式碼檢查工作表是否受保護

下列 VBA 程式碼可協助您快速掌握目前工作簿中各工作表的保護狀態——哪些已受保護，哪些尚未受保護。請依照以下步驟操作：

1. 同時按下 Alt＋F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

2. 在 Microsoft Visual Basic for Applications 視窗中，點選插入＞模組，並將下方的 VBA 程式碼複製貼上至程式碼視窗中。

VBA 程式碼：檢查工作表是否受保護

Sub GetProtectedSheets()
    Dim sh As Worksheet
    Dim xSaveSht As Worksheet
    Dim xSaveToRg As Range
    Dim xSaveToRg1 As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xSaveToRg = Application.InputBox("Please select a cell for saving the checking result:", "Kutools for Excel", xTxt, , , , , 8)
    If xSaveToRg Is Nothing Then Exit Sub
    If xSaveToRg.Worksheet.ProtectContents Then
        If MsgBox("This worksheet is protected, would you like to create a new sheet to save the checking result？", vbInformation + vbYesNo, "Kutools for Excel") = vbYes Then
            Set xSaveSht = ThisWorkbook.Worksheets.Add
            Set xSaveToRg = xSaveSht.Cells(1)
        Else
            Exit Sub
        End If
    End If
    Set xSaveToRg = xSaveToRg.Cells(1)
    Set xSaveToRg1 = xSaveToRg.Offset(0, 1)
    xSaveToRg.Value = "Protected worksheet"
    xSaveToRg1.Value = "Unprotected worksheet"
    Set xSaveToRg = xSaveToRg.Offset(1)
    Set xSaveToRg1 = xSaveToRg1.Offset(1)
    For Each sh In Worksheets
        If sh.Name <> xSaveSht.Name Then
            If sh.ProtectContents Then
                xSaveToRg.Value = sh.Name
                Set xSaveToRg = xSaveToRg.Offset(1)
            Else
                xSaveToRg1.Value = sh.Name
                Set xSaveToRg1 = xSaveToRg1.Offset(1)
            End If
        End If
    Next
End Sub

3. 按下 F5 鍵以執行程式碼，此時會彈出一個 Kutools for Excel 對話方塊。請選取一個儲存格來指定檢查結果的輸出位置，然後點選確定按鈕。

顯示用於選取儲存 Excel 檢查結果之儲存格的對話框截圖

注意事項：

1. 若所選儲存格位於受保護的工作表中，將會再彈出一個 Kutools for Excel 對話方塊，請點選確定按鈕，檢查結果將儲存於新建立的工作表中。

顯示指出工作表的對話框截圖，檢查結果將儲存在新建立的工作表中

2. 若所選儲存格位於未受保護的工作表中，檢查結果將立即顯示在所選區域內。

您可參見下方截圖中的檢查結果：

顯示 Excel 中已保護與未保護工作表結果的截圖

使用 VBA 程式碼檢查活頁簿是否受保護

此外，您也可以透過 VBA 程式碼來檢查目前的工作簿是否受到保護。請依照下列步驟操作：

1. 按下 Alt＋F11 鍵，立即開啟 Microsoft Visual Basic for Applications 視窗！

2. 在 Microsoft Visual Basic for Applications 視窗中，點選插入＞模組。然後將下方的 VBA 程式碼複製並貼上至程式碼視窗中。

VBA 程式碼：檢查活頁簿是否受保護

Sub IsWorkbookProtected()
With ActiveWorkbook
  If .ProtectWindows Or .ProtectStructure Then
    MsgBox "This workbook is password protected"
  Else
    MsgBox "This workbook is not password protected"
  End If
End With
End Sub

3. 按下 F5 鍵，立即執行程式碼！

您將根據活頁簿的狀態，看到下列其中一個對話方塊。

顯示 Excel 中提示活頁簿是否受密碼保護的訊息方塊截圖

Kutools for Excel 的「保護工作表」與「解除保護工作表」功能可協助您在 Excel 中一次保護或解除保護多個工作表。請參見下方截圖：

Kutools for Excel 功能可一次保護或解除保護多個工作表的截圖

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

最佳 Office 生產力工具

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