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

如果您想检查某个工作表或工作簿在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 对话框。请选择一个单元格以放置检查结果，最后点击 确定 按钮。

注意：

1. 如果您选择的单元格位于受保护的工作表中，另一个 Kutools for Excel 对话框将会弹出，请点击 确定 按钮，检查结果将保存在一个新创建的工作表中。

2. 如果所选单元格位于未受保护的工作表中，检查结果将立即显示在选定范围内。

您可以查看如下截图所示的检查结果：

使用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 键运行代码。

根据您的工作簿情况，您将看到以下对话框之一。