Excelブックを閉じる際にすべてのワークシートを自動的に保護するにはどうすればよいですか？

通常、Excelの「シートの保護」または「ブックの保護」機能を使用して、パスワードでワークシートやブック全体を手動で保護できます。しかし、ブックを閉じる際にすべてのワークシートを自動的にパスワードで保護したい場合はどうすればよいでしょうか？この記事では、それを実現するためのVBA方法を紹介します。

VBAコードを使用してExcelブックを閉じる際にすべてのワークシートを保護する

VBAコードを使用してExcelブックを閉じる際にすべてのワークシートを保護する

ブックを閉じる際にすべてのワークシートを自動的に保護するには、次のVBAコードを適用してください。

1. ファイルを閉じる際にすべてのワークシートを保護したいブックで、Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、左ペインのThisWorkbookをダブルクリックし、以下のVBAコードをコードウィンドウにコピーします。スクリーンショットをご覧ください：

VBAコード: ブックを閉じる際にすべてのワークシートを保護する

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Update by Extendoffice 2018/1/24
    Dim xSheet As Worksheet
    Dim xPsw As String
    xPsw = ""
    For Each xSheet In Worksheets
        xSheet.Protect xPsw
    Next
End Sub

ヒント：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Sheet1").Protect "123"
    ActiveWorkbook.Save
End Sub

3. その後、Alt + Qキーを押してMicrosoft Visual Basic for Applicationsウィンドウを閉じます。

上記の手順後、ブックを閉じる際にすべてのワークシートまたは指定されたワークシートが自動的に保護されます。

注意：

関連記事：

• Excelの保護されたワークシートでドロップダウンリストを使用するにはどうすればよいですか？
• Excelでワークシート全体を保護せずに特定のセルをロックするにはどうすればよいですか？
• Excelでワークシートを保護せずに数式を非表示にして結果を表示するにはどうすればよいですか？