先生と生徒の会話形式で理解しよう

生徒

「先生、エクセルで『シートの保護』を設定したら、今まで動いていた自動マクロがエラーで止まるようになっちゃいました！」

先生

「それはエクセルの守備が完璧すぎるからですね。シートを保護すると、人間だけでなくVBA（マクロ）からの操作も禁止されてしまうんです。」

生徒

「えっ、じゃあ自動化は諦めるしかないんですか？」

先生

「そんなことはありませんよ。マクロだけに操作を許可する特別な設定があるんです。一緒に解決方法を見ていきましょう！」

1. シート保護とVBAの関係！なぜマクロが止まるのか

エクセルのシート保護とは、大事な数式やデータを間違えて消さないように、セルへの入力を禁止する機能です。これは非常に便利ですが、プログラミングの世界であるVBA（ブイビーエー）にとっても「壁」になってしまいます。エクセルからすると、人間が手で入力しようとしているのか、マクロが自動で書き込もうとしているのか区別がつかないため、一律に「書き込み禁止！」とブロックしてしまうのです。

パソコンを触ったことがない方にも分かりやすく例えると、シートの保護は「金庫に鍵をかけた状態」です。中身を守るためには必要ですが、中身を整理するロボット（マクロ）まで金庫に入れなくなってしまい、「鍵がかかっているので作業できません！」とエラーを出して止まってしまうわけです。これを解決するには、ロボットにだけ鍵を渡すか、作業中だけ鍵を開けるといった工夫が必要になります。

2. エラーメッセージの正体！「1004」エラーに注目

シートが保護されている状態でマクロを動かそうとすると、多くの場合は「実行時エラー '1004': 変更しようとしているセルまたはグラフは保護されているため、読み取り専用となっています。」というメッセージが表示されます。この「1004」という番号は、VBAにおける代表的なエラーコードの一つで、「操作が拒否されました」というサインです。

このエラーが出たときは、コードの内容が間違っているのではなく、エクセルのセキュリティ設定がプログラムの邪魔をしていると考えてください。この問題を解決するには、プログラムの書き方に「保護を一時的に解除する」という命令、もしくは「マクロにだけ特別許可を与える」という設定を追加する必要があります。プログラミングの基本は、こうした壁にぶつかったときに「どうやって回避するか」をパソコンに指示することなのです。

3. 【解決法A】プログラムの中で一時的に保護を解除する

最も直感的で分かりやすい解決方法は、マクロの処理が始まる直前に「シートの保護を解除」し、処理が終わった瞬間に「再び保護をかける」という手順を組み込むことです。これを専門用語でアンプロテクト（Unprotect）とプロテクト（Protect）と呼びます。

例えば、セルを選択したときに自動で色を塗るイベント処理（SelectionChange）にこの仕組みを取り入れると、以下のようになります。この書き方は、初心者の方でも構造が理解しやすいため、最初のステップとしておすすめです。


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 1. シートの保護を解除します（パスワードがある場合は指定可能）
    ActiveSheet.Unprotect Password:="1234"
    
    ' 2. ここに本来やりたい自動処理を書きます
    ' 例：選んだセルの背景を黄色にする
    Target.Interior.Color = vbYellow
    
    ' 3. 処理が終わったら、忘れずに再びシートを保護します
    ActiveSheet.Protect Password:="1234"
End Sub

このように、「鍵を開ける ➔ 仕事をする ➔ 鍵を閉める」という一連の動作をワンセットにすることで、保護機能と自動化を両立させることができます。

4. パスワードの取り扱いに注意！安全な管理方法

先ほどのコードに Password:="1234" という部分がありましたが、ここにはシート保護に設定したパスワードを直接書き込みます。しかし、プログラムの中にパスワードをそのまま書いてしまうと、VBAの画面を開ける人なら誰でもパスワードが分かってしまうという弱点があります。

パソコン初心者の方が実務で使う場合は、まず「パスワードなし」で保護を試してみるのも一つの手です。もしセキュリティが重要なファイルであれば、VBAプロジェクト自体にパスワードをかけて、コードが見られないように保護する機能も併用しましょう。自動化を進める上で、便利さとセキュリティのバランスを考えるのはとても大切なことです。パスワードは自分だけが分かる場所にしっかりメモしておきましょうね。

5. 【解決法B】UserInterfaceOnlyでマクロだけに特別許可を出す

実は、VBAにはもっとスマートな解決方法があります。それがUserInterfaceOnly（ユーザー・インターフェース・オンリー）という設定です。これは、「人間（ユーザー）の操作は禁止するけれど、VBA（プログラム）からの操作は許可する」という魔法のようなオプションです。

この設定の最大の特徴は、一度設定してしまえばプログラムの中でいちいち「解除」と「再保護」を繰り返さなくて済む点です。コードがスッキリして、動作もスムーズになります。ただし、この設定はエクセルファイルを閉じてしまうと消えてしまうため、ファイルを開くたびに自動で設定をかけ直すように設計するのがプロのやり方です。


' このコードは「ThisWorkbook」という場所に書きます
Private Sub Workbook_Open()
    ' ファイルを開いた瞬間に、Sheet1に対して
    ' 「マクロからの操作だけを許可する」という特別な保護をかけます
    Worksheets("Sheet1").Protect UserInterfaceOnly:=True
End Sub

これを設定しておけば、他の場所にあるイベント処理やマクロで Unprotect を書かなくても、自由にセルの書き換えができるようになります。非常に高度に見えますが、実務では非常によく使われるテクニックです。

6. Workbook_Openイベントで初期設定を自動化する

先ほどの「マクロだけに特別許可を出す」設定を有効にするには、Workbook_Open（ワークブック・オープン）というイベントを使います。これは、エクセルファイルを開いた瞬間に自動で実行されるプログラムのことです。パソコン初心者の方は、まず「ファイルが開いたときに動く専用の場所がある」と覚えてください。

VBAの編集画面の左側にある「ThisWorkbook」という項目をダブルクリックし、そこにコードを書き込みます。ここに設定を書いておくことで、ユーザーがファイルを使い始めた瞬間、すでに「マクロだけは自由に動ける状態」が出来上がります。使う人が「いちいちマクロのために保護を外す」といった手間を一切感じさせない、親切でプロフェッショナルな設計を目指しましょう。

7. セルの「ロック」設定を組み合わせて柔軟に設計する

シート保護とセットで覚えておきたいのが、セルのロック機能です。すべてのセルを保護するのではなく、「ここは入力してもいいけれど、ここはマクロでしか変えられない」といった細かな使い分けができます。エクセルの標準機能である「セルの書式設定」の中にある「保護」タブから設定を変更できます。

例えば、入力が必要なセルだけロックを外しておき、マクロが計算結果を書き込むセルだけロックをかけてシート保護をすれば、より安全なファイルになります。VBA側で Locked（ロックされているか）というプロパティを確認して処理を分岐させるなど、保護機能とVBAを上手く組み合わせることで、エラーの起きにくい強固なシステムを作ることができるようになります。


' セルがロックされているかを確認して処理を変える例
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' もしダブルクリックしたセルがロックされていたら
    If Target.Locked = True Then
        MsgBox "このセルは管理者以外変更できません。"
        Cancel = True ' ダブルクリックの動作（編集など）をキャンセルします
    End If
End Sub

8. エラーが起きた時のための安全対策（エラーハンドリング）

保護の解除（Unprotect）を使う場合、万が一プログラムの途中でエラーが起きて止まってしまうと、保護が解除されたまま（鍵が開いたまま）になってしまうリスクがあります。これを防ぐには、エラーハンドリングという「もしもの時のための対策」を書いておく必要があります。

「エラーが起きても、最後には必ず保護をかけ直して終わる」という設計をすることで、データの安全性を守ることができます。これはプログラミング未経験の方が「中級者」へとステップアップするための非常に重要な考え方です。自分が作ったツールを他の人が安心して使えるように、細部まで気を配った設計を心がけましょう。


Sub SafeUpdate()
    ' エラーが起きたら「ErrorHandler」という場所にジャンプさせます
    On Error GoTo ErrorHandler
    
    ActiveSheet.Unprotect
    
    ' ここで複雑な処理（エラーが起きるかもしれない作業）をします
    Range("A1").Value = "データ更新中"
    
    ' 最後に保護をかけます
    ActiveSheet.Protect
    Exit Sub ' ここで終了（エラー処理には行かない）

ErrorHandler:
    ' エラーが起きた場合も、ここを通って必ず保護をかけます
    ActiveSheet.Protect
    MsgBox "エラーが発生しましたが、シートは保護されました。"
End Sub

9. 保護機能を味方につけて使いやすいシートを作る

「シートを保護するとマクロが動かなくなる」という壁は、多くのVBA初心者が最初にぶつかる大きな悩みです。しかし、今回学んだ「一時解除（Unprotect）」や「マクロのみ許可（UserInterfaceOnly）」といったテクニックを使えば、その壁を簡単に乗り越えることができます。

保護機能はマクロを邪魔する敵ではなく、あなたの作った大切なプログラムやデータを守ってくれる心強い味方です。正しい設計方法を身につけて、保護機能と自動化を賢く共存させましょう。最初は難しく感じるかもしれませんが、コードを一つずつ書いて動かしてみることで、必ず理解が深まっていきます。一歩ずつ、信頼されるエクセルツール作りを楽しんでいきましょう！