关闭活动工作簿，如果工作簿有更改，提示是否保存：

    Sub CloseWorkbook()     ActiveWorkbook.Close     End Sub

    如果要避免出现提示，可添加“SaveChanges”参数，如直接保存并关闭工作簿：

    Sub ClostAndSaveWorkbook()     ActiveWorkbook.Close Savechanges:=True     End Sub

    将上述代码中的“True”改为“False”，则直接关闭工作簿而不保存。

    关闭所有打开的工作簿，并提示是否保存：

    Sub CloseAllWorkbooks()     On Error Resume Next     Workbooks.Close     End Sub

    退出Excel，并提示对有更改的工作簿进行保存：

    Sub QuitExcel()     Application.Quit     End Sub

    保存活动工作簿并退出Excel：

    Sub SaveActiveWorkAndQuit()     ActiveWorkbook.Save     Application.Quit     End Sub

    下面的代码在退出Excel时都不会提示是否保存工作簿。

    保存所有打开的工作簿并退出Excel：

    Sub SaveAllAndQuit()     For Each wbk In Workbooks     wbk.Save     Next     Application.Quit     End Sub

    退出Excel，所有的改动都不保存：

    Sub QutiAndNoAlerts()     Application.DisplayAlerts = False     Application.Quit     End Sub