「cmdExit_Click」に必要な処理を記述することで、Excelを閉じて終了する時にメッセージを表示させることができる。
以下はその一例。
Private Sub cmdExit_Click()
Dim intRtn As Integer
intRtn = MsgBox("処理を終了します。" & vbCrLf & _
"よろしいですか？", vbQuestion + vbOKCancel, "終了確認メッセージ")
If intRtn <> vbOK Then
Exit Sub
End If
'保存して閉じる
ActiveWorkbook.Close SaveChanges:=True
'Workbooks(XLS_NAME).Close SaveChanges:=True
'Workbooks.Close
End Sub
