如何在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