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

在使用Excel时，有时候我们需要检查工作表或工作簿是否受到保护，以判断它们能否被编辑或修改。这时候，我们可以利用Excel提供的相关功能来进行检查。接下来，我将介绍如何在Excel中检查工作表或工作簿是否受保护。

检查工作表是否受保护

检查工作表是否受保护的方法很简单，只需要在工作表上右键点击，选择“查看代码”，或者按快捷键“Alt + F11”，打开Visual Basic编辑器。然后，在左侧的“工程资源管理器”中，可以看到所有的工作表列表，受到保护的工作表会有一个小锁图标

如果工作表受到保护，我们就可以在右侧的“代码”窗口中看到相应的代码：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    '显示一个警告框，告诉用户工作表是受保护的。
    MsgBox "该工作表受到保护！", vbInformation, "警告"
End Sub

如上代码所示，在工作表受到保护的前提下，当任何一个工作表被激活时，都会自动弹出一个警告框，告诉我们这个工作表是受保护的。

在Visual Basic编辑器中，我们也可以通过代码来检查工作表是否受保护。具体做法是，在代码窗口中输入以下代码：

Sub CheckActiveSheetProtection()
    '检查当前工作表是否受到保护
    If ActiveSheet.ProtectContents Then
        MsgBox "该工作表受到保护！", vbInformation, "信息"
    Else
        MsgBox "该工作表未受到保护。", vbInformation, "信息"
    End If
End Sub

然后，按下“F5”键或者在菜单栏中点击“执行”按钮，就可以运行这个宏。如果当前工作表受到保护，就会弹出一个信息框，告诉我们该工作表是受保护的；反之，如果当前工作表未受到保护，就会弹出另一个信息框，告诉我们该工作表未受到保护。

检查工作簿是否受保护

与检查工作表是否受保护相比，检查工作簿是否受保护稍微麻烦一些。我们需要打开Visual Basic编辑器，并在左侧的“工程资源管理器”中找到“这台电脑（或Microsoft Excel项目）”下的“Microsoft Excel对象”节点

然后，双击“这台电脑（或Microsoft Excel项目）”节点上的“Workbook”对象，在右侧的“代码”窗口中输入以下代码：

Sub CheckWorkbookProtection()
    '检查工作簿是否受到保护
    If ActiveWorkbook.ProtectStructure Then
        MsgBox "该工作簿受到保护！", vbInformation, "信息"
    Else
        MsgBox "该工作簿未受到保护。", vbInformation, "信息"
    End If
End Sub

与检查工作表是否受保护时的代码类似，这里的代码也可以通过“F5”键或者“执行”按钮来运行。如果当前工作簿受到保护，就会弹出一个信息框，告诉我们该工作簿是受保护的；反之，如果当前工作簿未受到保护，就会弹出另一个信息框，告诉我们该工作簿未受到保护。

除了以上的方法外，我们还可以在Excel的“故障诊断”功能中检查工作簿是否受保护。具体做法是，在Excel的主菜单栏中选择“文件”->“选项”->“数据”->“故障诊断”，然后勾选“故障排除功能启用后，自动执行快速诊断”

然后，打开需要检查的工作簿，Excel会自动进行快速诊断，并在“故障诊断”页面中显示检测结果。如果工作簿受到保护，Excel会在“保护工作簿结构”项中标记一个对勾