マクロWorkbook_BeforeCloseで別のエクセルファイルを開いていると実行されない?

Question

Excel2010のマクロVBAでWorkbook_BeforeCloseを設定しているのですが、

別のエクセルファイルを開いているとそのマクロが実行されないようです。

構文は下記の通りです。

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Dim msg As String

    msg = "「保存」ボタンで終了してください。"

    MsgBox msg, vbExclamation, "確認"

    Cancel = True

End Sub

保存ボタンには入力行に保護をかけてシートの保護をするマクロを設定してあります。

入力行の必ず保護をかけてから保存したいので、右上の×ボタンで閉じられないように

「Workbook_BeforeClose」を使ってみました。

このマクロのエクセルのみ開いている場合は上記のメッセージがでるのですが、

別のエクセルファイルをひとつでも開いていると、右上の×ボタンを押すと

通常通りの「変更を保存しますか？保存/保存しない/キャンセル」がでてきてしまいます。

エクセルを複数開いていても該当ファイルでWorkbook_BeforeCloseが実行されるには

どうしたらいいのでしょうか？

マクロは独学のものですので根本的に何かを勘違いしているかもしれません。

ご存知の方教えてください。

Answer 1

当然のことと思われます。

VBAを記述したブックにしか閉じるイベントは発生しないからです。

以下の様にアプリケーションイベントにすれば開いているブックすべてに適用されます。

ＴｈｉｓWorkbookに記述の上、一度保存、再度開いて、マクロを有効にして下さい。

Dim WithEvents app As Application

Private Sub Workbook_Open()

    Set app = Application

End Sub

Private Sub app_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)

    Dim msg As String

    msg = "「保存」ボタンで終了してください。"

    MsgBox msg, vbExclamation, "確認"

    Cancel = True

End Sub

Answer 2

nombo　さま

回答ありがとうございました。

教えていただいたとおりに記述しましたらできました。