EXCELを終了するときマクロを起動。

2019年6月28日

EXCELを終了させるときにマクロを起動して状態のチェック等をしたい時。

ThisWorkbook内に書きます。

'###
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Worksheets("KANRI").Range("B12").value <> Date Then
       MSG_FLG = MsgBox(" 本日実行していませんが良いですか？ ", vbYesNo)
       If MSG_FLG = vbNo Then
          Cancel = True
       End If
    End If
End Sub
'###

Cancel = True　で、EXCELの終了がキャンセルされます。