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ダイアログボックスが表示されます。結果を配置するセルを選択し、最後にOKボタンをクリックしてください。

注釈:

1. 選択したセルが保護されたワークシート内にある場合、別の Kutools for Excelダイアログが表示されます。OKボタンをクリックすると、チェック結果が新しく作成されたワークシートに保存されます。

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キーを押してコードを実行します。

ワークブックに基づいて、次のいずれかのダイアログボックスが表示されます。