如何在Excel中檢查工作表或工作簿是否受保護？

MS Excel 微軟技術高階Excel函式

在使用Microsoft Excel時，您可能會發現某些工具和功能無法正常工作。這可能是因為Excel中的工作表或工作簿受保護。保護工作表是共享資訊之前保持資訊安全的一種常見做法。它可以防止其他使用者意外或故意更改、修改或刪除資料。

本教程介紹三種不同的方法來檢查MS Excel中是否存在受保護的工作表或工作簿。

方法一

檢查視覺特徵以確定工作表是否受保護

透過檢查工作表中的一些指示器，您可以判斷工作表是否受保護。在示例工作簿中，有3個工作表。按照此方法中提到的步驟操作，您只需幾秒鐘即可知道每個工作表的保護狀態。

步驟1 - 導航到Excel視窗底部的工作表選項卡，位於狀態列上方。

步驟2 - 在工作表選項卡中，查詢鎖圖示。如果啟用了保護，則鎖圖示 (🔒) 將出現在選項卡中的工作表名稱之前。

按照上述步驟，我們看到工作表1和3受保護。

方法二

檢查Excel工作表功能區中的功能

受保護的工作表無法刪除或修改。當工作表受保護時，Excel會自動停用格式按鈕，單元格將變為只讀。我們將透過對比標記為“X系列”的未保護工作表和標記為“S系列”的受保護工作表的MS Excel功能區來展示這一點。

步驟1 - 檢查第一個電子表格中的格式按鈕。

步驟2 - 要確定工作簿中的第二個電子表格是否受保護，請檢查Excel功能區中的格式選項。

方法三

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

VBA程式碼提供更具體的結果，並允許您快速確定活動工作簿中的工作表是否受保護。我們將在以下步驟中向您展示如何使用上述示例工作表執行MS Excel VBA程式碼。

步驟1 - 按Alt + F11鍵開啟Microsoft Excel Visual Basic應用程式(VBA)對話方塊。

步驟2 - 右鍵單擊“Microsoft Excel物件”，然後從下拉選單中選擇“插入”→“模組”。

步驟3 - 將VBA程式碼鍵入或貼上到模組編輯器部分（視窗右上角的白色框）。

檢查工作簿中工作表是否受保護的Microsoft Excel VBA程式碼：

Sub SheetProtectionSummary()
'PURPOSE: List out all sheets that have protection enabled

Dim sht As Worksheet
Dim VisibleSheetList As String
Dim HiddenSheetList As String

'Loop through each sheet and test for protection
   For Each sht In ActiveWorkbook.Worksheets
      If sht.ProtectContents = True Then
         If sht.Visible = xlSheetVisible Then
            VisibleSheetList = VisibleSheetList & vbNewLine & " - " & sht.Name
         Else
            HiddenSheetList = HiddenSheetList & vbNewLine & " - " & sht.Name
         End If
      End If
   Next sht
'Display Results

   If HiddenSheetList = "" And VisibleSheetList = "" Then
      MsgBox "No worksheets were found to currently be protected in this workbook"
   Else
      MsgBox "The following worksheets were found to have sheet protection enabled:" & _
      vbNewLine & vbNewLine & "Visble Worksheets:" & VisibleSheetList & _
      vbNewLine & vbNewLine & "Hidden Worksheets:" & HiddenSheetList, , "Protection Summary"
   End If
End Sub