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

質問

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

回答No.1

imogasi · ベストアンサー

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

お礼

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

回答No.3

onlyrom

「○○の入力は済みましたか？」と表示するより
○○が未入力の時だけ、
「○○が未入力です、必ず入力してください」
とした方がいいのでは？

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

又は、

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

とか。

お礼

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

回答No.2

merlionXX

ThisWorkbookモジュールに

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

としてください。

お礼

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