ブック・Excelの各種終了方法 ： Excel

■ このブックを閉じる
Private Sub CommandButton1_Click()
    ActiveWorkbook.Close
End Sub

■ このブックを保存して閉じる
Private Sub CommandButton2_Click()
    ActiveWorkbook.Close savechanges:=True
End Sub

■ このブックを保存せずに閉じる
Private Sub CommandButton3_Click()
    ActiveWorkbook.Saved = True
    'Application.Quit
    ActiveWorkbook.Close
End Sub

■ 全てのブックを保存しExcel終了
Private Sub CommandButton4_Click()
    Dim bk As Workbook
    
    For Each bk In Workbooks
        bk.Save
    Next bk
    Application.Quit
End Sub

■ 全てのブックを保存せずにExcel終了
Private Sub CommandButton5_Click()
    Application.DisplayAlerts = False
    Application.Quit
End Sub

■ Excelを終了する
Private Sub CommandButton6_Click()
    Application.Quit
End Sub