エクセルVBA ブックを閉じる前に確認メッセージを表示したい

エクセルでブックを右上の×を押して閉じる場合、「○○の入力は済みましたか？」というメッセージを表示して「はい・いいえ」のうち、はいを押すと閉じることができて、いいえを押すと閉じるのをやめるようにしたいのですが、どのようなコードになるか教えてください。よろしくお願いします。

No.1 ベストアンサー 回答者： imogasi 回答日時： 2008/01/16 21:46

ThisWorkbookのBeforeCloseイベントに

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "AAA"
End Sub
を入れると
Xでクローズしても、メッセージが出ましたが。

この回答へのお礼

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

お礼日時：2008/01/18 21:17

No.3 回答者： onlyrom 回答日時： 2008/01/16 22:32

「○○の入力は済みましたか？」と表示するより

○○が未入力の時だけ、
「○○が未入力です、必ず入力してください」
とした方がいいのでは？

例えば、セルＢ５には必ず入力しないといけない場合
'-----------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
　If Range("B5").Value = "" Then
　　MsgBox "●●が未入力、●●は必ず入力せよ！", vbCritical + vbOKOnly, "確認"
　　Cancel = True
　End If
End Sub
'------------------------------------------------------
　
又は、

MsgBox "セルＢ５が未入力、セルＢ５は必ず入力せよ！", vbCritical + vbOKOnly, "確認"

とか。
　

この回答へのお礼

アイデアありがとうございました。今回は当てはまりませんでしたが、このようなケースに是非覚えさせていただきます。

お礼日時：2008/01/18 21:19

No.2 回答者： merlionXX 回答日時： 2008/01/16 21:52

ThisWorkbookモジュールに

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ans
ans = MsgBox("○○の入力は済みましたか？", vbYesNo + vbQuestion)
If ans = vbNo Then Cancel = True
End Sub

としてください。

この回答へのお礼

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

お礼日時：2008/01/18 21:18