【Excel VBA】ブックを閉じる前のMsgBoxサンプル（Yes No Cancel）

　Excel VBAを作るとき、コードの参考事例をネットで検索したのですが、なかなか正解にたどり着けなかったので、備忘録のために書いておきます。

取り急ぎ、マクロサンプル

　まずは、ズバリっ！サンプルマクロをお知らせしましょう。

　マクロ登録済みExcelブックはこちら。

 
Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Dim ans As Integer
    
    ans = MsgBox("ブックを閉じる前の処理はどうしますか？", vbYesNoCancel + vbQuestion + vbDefaultButton3, "閉じる前のMsgBoxサンプル")
    
    Select Case ans

        Case vbYes
            MsgBox "「はいボタン」が押されました"
        Case vbNo
            MsgBox "「いいえボタン」が押されました"
        Case vbCancel
            Cancel = True
        Case Else
    
    End Select

End Sub

　すっごくシンプルでなんてコトはないコードのようですが、正解にたどり着けなかったのは、つぎの２点です。

はい、いいえ、キャンセルの処理の書き方は？

　MsgBoxで示される３つのパターンを書かないといけないんですが、なかなかコレっ！という情報にヒットしませんでした（検索の方法が悪いのかな・・・）。

　IF Then Elseで、２つのボタンの処理を表したサンプルはすぐでてくるんですけどね。

　いろいろ探して Select を使えば良いってことがわかりました。

キャンセルのときの処理は？

　キャンセルのときの処理を具体的に書くと、「ブックを閉じるという処理をキャンセルする」ということで、結果「ブックを閉じないで開いたまま」にしたいのです。

　ところが、この「一度ブックを閉じようとする処理（Workbook_BeforeClose）を途中でやめて無かったことにする」という処理の方法が、なかなか見つかりませんでした。

　Cancel = True だけで良かったんですね。Private sub のところに、(Cancel As Boolean)と書いてあるので、Cancelは変数でBoolean型であることがわかります。Cancelという変数にTrueをセットすると「ブックを閉じる」という処理がキャンセルされて、結果「ブックを閉じないで開いたまま」になるようです。

補足（なぜ、このマクロが必要か？）

　このマクロが必要になったのは、「ブックを閉じるときに自動的にバックアップのブックを作る」という処理をしようとしたときでした。

　単純に（Workbook_BeforeClose）にバックアップのブックを作る処理を書いた場合、次のような不具合があります。

＜不具合例その１＞

　オリジナルのブックを上書き保存しなくても、そのままバックアップのブックを書き出して終了してしまいます。結果、次にオリジナルブックを開いたとき、前回の処理が反映されていないことになります（バックアップのブックだけが変更されている状態）。

＜不具合例その２＞

　では、オリジナルのブックを保存してから、バックアップのブックを保存する処理にすれば良さそうなものですが、この場合「ブックを開いて、ただ中身を確認するだけで閉じる」という操作をした場合でも、オリジナルのブックが書き換わってしまいます。「ただ中身を確認するだけ」なので書き換わらないだろ・・・と思われがちですが、意図しない変更（たとえば、キーボードにうっかり触れてしまって大事な式の上に"p"などの文字が入力されているなど）は良くあることです。

＜不具合例その３＞

　では、「保存するか」「保存しないか」の２択のボタンを作れば良さそうなものですが、この場合、処理をキャンセルすることができません（MsgBoxの右上の“☓”が押せません）。キャンセルする方法あるのかな・・・。

　以上のことから、（Workbook_BeforeClose）の処理で、ブックを閉じようとするときに、次のようにファイルの保存を明示的に操作するようにしたいと考えたのでした。