ExcelVBA セルやシート、ブックを誤操作から保護するロックの使い方

2025年2月10日 2025年2月10日

ExcelVBA セルやシート、ブックの内容を誤操作から保護するために、ロックやロック解除を行う方法を解説します。使い方や注意点など、サンプルコードをもとに具体的に解説します。

2025年の目標は繰り返し作業に悩まされない年にしませんか？ Excel VBAを活用した効率化がその第一歩
本サイト参考：Excel VBAで自動化するコードのベースを習得したい方におすすめの記事

1 Excel VBA セルやシート、ブックの保護シーン
2 Excel VBA セルやシート、ブックの保護の使い方と注意点
3 Excel VBAセルやシート、ブックの保護のサンプルコード
4 Excel VBAセルやシート、ブックの保護｜まとめ

Excel VBA セルやシート、ブックの保護シーン

以下のシーンで利用します。

1.データ入力フォームで、特定のセルだけ入力を許可する。

2.計算シートの数式が変更されないように保護する。

3.特定の操作を実行後にロック解除し、完了後に再ロックする。

Excel VBA セルやシート、ブックの保護の使い方と注意点

1.セルのロック ( Locked = True ) は、シートが保護されている場合にのみ有効

2.シートを保護 ( Protect ) することで、ロックされたセルが編集不可になる

3. Protect のパスワードを設定しないと、解除 ( Unprotect ) が誰でも可能

Excel VBAセルやシート、ブックの保護のサンプルコード

Excel VBAで効率化の準備をしてみませんか？2025年をよりスムーズに過ごすための資格
基本的な文法やVBAの実践的な応用までを網羅的に学習できる方法は、ExcelVBAエキスパート資格の取得を目指すこと。学習を通して、より効率的に、着実に基礎を身につけることが可能です。資格取得すれば、スキルの証明にもなり、職場での評価アップにも繋がるため、勉強を進めるモチベーションにもなります。
本サイト参考：マクロ知識がないから「何から学べば良いのかわからない」という人におすすめの記事

標準モジュール（セルのロック・ロック解除）A1:A10 だけ編集不可になり、他のセルは編集可能に

Option Explicit

Sub LockCells()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' シートを指定

    ' まず全セルのロックを解除
    ws.Cells.Locked = False
    
    ' A1:A10 のみロック
    ws.Range("A1:A10").Locked = True

    ' シートを保護（パスワードなし）
    ws.Protect
End Sub

シートの保護を解除し、すべてのセルが編集可能に

Option Explicit

Sub UnlockSheet()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' シートの保護を解除
    ws.Unprotect
End Sub

パスワード付きの保護
パスワードで保護・解除できるので、勝手に編集できない

Option Explicit

Sub ProtectWithPassword()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' シートをパスワード付きで保護
    ws.Protect Password:="1234"
End Sub
   
   vba
Option Explicit

Sub UnprotectWithPassword()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' シートの保護を解除（パスワードが必要）
    ws.Unprotect Password:="1234"
End Sub

ブック全体の保護
ブック全体を保護して、シート追加・削除を防ぐ

Option Explicit

Sub ProtectWorkbook()
    ThisWorkbook.Protect Password:="1234"
End Sub
   
   vba
Option Explicit

Sub UnprotectWorkbook()
    ThisWorkbook.Unprotect Password:="1234"
End Sub

Excel VBAセルやシート、ブックの保護｜まとめ

操作	コード	説明
セルのロック	Range("A1:A10").Locked = True	指定セルのみ編集不可にする
シートの保護	ws.Protect	ロックされたセルを編集不可にする
シートの解除	ws.Unprotect	シートの保護を解除
パスワード保護	ws.Protect Password:="1234"	不正解除を防ぐ
ブック保護	ThisWorkbook.Protect	シートの追加・削除を防ぐ