Excelでワークシートやワークブックが保護されているかどうかを確認する方法は？

Author Siluvia Last modified 2025-08-26

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ボタンをクリックしてください。

A screenshot showing the dialog box to select a cell for saving the checking result in Excel

注釈:

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

A screenshot showing the dialog box indicating the worksheet, and the checking result will be saved in a new created worksheet

2. 選択したセルが保護されていないワークシート内にある場合、チェック結果は選択範囲にすぐに表示されます。

以下のようなスクリーンショットで確認結果を見ることができます：

A screenshot displaying the result of protected and unprotected worksheets in Excel

VBAコードを使用してワークブックが保護されているか確認する

また、VBAコードを使用してアクティブなワークブックが保護されているかどうかを確認することもできます。以下の手順に従ってください。

1. Alt + F11キーを同時に押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

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

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

A screenshot of the message box indicating if a workbook is password protected in Excel

Kutools for Excelの「Protect Worksheet」と「Unprotect Worksheet」ユーティリティを使用すると、Excelでアクティブなワークブック内の複数のワークシートを一度に簡単に保護または保護解除できます。下記のスクリーンショットをご覧ください：

A screenshot of the Kutools for Excel feature to protect or unprotect multiple worksheets at once

Kutools for Excel - 必要なツールを300以上搭載し、Excelの機能を大幅に強化します。永久に無料で利用できるAI機能もお楽しみください！今すぐ入手

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数