VBE画面を開き、プロジェクトエクスプローラを表示、ThisWorkbookを開いて記述します。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Worksheets("Sheet1").Range("A1").Value = "" Then
MsgBox "Sheet1のA1を記入して下さい。", vbCritical, "終了出来ません"
Cancel = True
End If
End Sub
マクロ有効で開いてもらえないと意味無しです。
お礼
ありがとうございました。こういう式でできるんですね。やってみたらできました。