【Excel VBA】ブックを閉じる際にマクロを実行する場合について

Question

前提・実現したいこと

VBAを勉強中の初心者です。文中にお見苦しい点がありましたら申し訳ありません。

手書きで記入していた会社の郵便物受領リストを、今後Excelで管理することになりました。
そこで、過去に記入したデータを誤って消してしまったりしないためにも
何らかの情報を入力したセルは編集不可にし、それ以外の空白セルは編集可能にしたいです。
そして、最後にブックを閉じる際にマクロを動かしたいと思っております。

イメージ図としては以下の通りです。

入力してみた画面は以下の通りです。

発生している問題・エラーメッセージ

従来はブックを保存する前に、手動でマクロ実行ボタンを押していたのですが、
途中で「ブックを閉じる際にマクロが自動で動くよう変えたら便利かな」と思い立ち、
冒頭の部分を「Private Sub Workbook_BeforeClose(Cancel As Boolean)」に変えたところ、
以前はロックされていた入力データがロックされなくなってしまいました。

ネットで色々検索してみましたが、身近にマクロに関して詳しい方がおらず八方塞がりの状態です。
どなたかご教授いただけませんでしょうか？

該当のソースコード

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    ActiveSheet.Unprotect Password:="1234"
    
    Cells.Locked = True
    
    On Error Resume Next
    Cells.SpecialCells(Type:=xlCellTypeBlanks).Locked = False
    On Error GoTo 0
    
    ActiveSheet.Protect Password:="1234"

End Sub

Answer 1

閉じるときに再度シート保護をしているので保存するか否か聞かれませんか？
そこでいいえにすると保存時の状況によってはロックされないと思います。
最後にSaveをいれてみたらいかがでしょう。

ActiveWorkbook.Save

---

保存されないケース
・データ入力
・上書き保存
・ファイルを閉じる（BeforeClose内でシート保護。今回入力データはロックがかかっていない）
・保存しますか？メッセージ→いいえだとロックがかかっていないまま
なので、強制的にSaveで上書き保存します。

Comments

[daifuku-mochi]

昨日もご回答くださった方ですよね！再度コメントおよびご教授いただきありがとうございます！
教えていただいた状況を鑑みると確かに…と納得できました。まだまだ勉強不足です。
コードを最後に追加してみたものの、残念ながら動きませんでした。
イベントプロシージャを使うのがはじめてでしたので、もしかしたら他の部分での設定ミスなどあるのかもしれません。追って原因を探してみようと思います。
見ず知らずの私に、二度もご丁寧にご教授いただき本当にありがとうございました！もっと励みます！

[daifuku-mochi]

できました！コードを張り付けていた場所が間違っていたようです！おかげさまで、大変勉強になりました！本当に本当にありがとうございました！

[radames1000]

あ、できたのですね！よかったです！
シートモジュールだったのを、ブックモジュール（ThisWorkbook）に移動されたんですね。
最初に気づいて回答できればよかったのですがお手数をおかけしました。
モジュールには標準モジュールという別のものもあるのでよければ勉強してみてくださいね。
がんばってください！

[daifuku-mochi]

はい！まさしくその通りでブックモジュールではない場所にコードを貼り付けておりました…
調べてみるとかなり初歩的な内容でしたので、私の勉強不足が招いた失態だと思います…
標準モジュールに関してもさっそく調べてみました。次からは気を付けたいです。
出来上がったファイルを明日からさっそく運用します！おかげさまで、作業が楽になりそうです！
ご親切にご助言いただき本当にありがとうございました！