摘要： 要用VBA来关闭工作簿，用Workbook.Close 方法即可，而要退出Excel，则用Application.Quit 方法。下面是一些代码示例： 关闭活动工作簿，如果工作簿有更改，提示是否保存： ...
要用VBA来关闭工作簿，用Workbook.Close 方法即可，而要退出Excel，则用Application.Quit 方法。下面是一些代码示例：
关闭活动工作簿，如果工作簿有更改，提示是否保存：
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工作表或撤消所有工作表保护
有时需要让Excel工作簿中的每个工作表只能查看而不被修改，可以对所有的工作表进行保护，如果工作簿中的工作表数量较多，手动逐一操作十分繁琐。在工作表保护密码相同或不设置密码的情况下，用下面的方法可以快速保护所有工作表。 1.按Alt F11，打开VBA编辑器。单击菜单“视图→立即窗口”
退出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
excel利用颜色标记包含数组公式的单元格
当工作表中包含大量多单元格数组公式时，有时为了方便编辑这些数组公式，可能希望将工作表中的数组公式单独标记出来，以区分非数组公式，这时可以用下面的VBA代码来实现。 选择包含数组公式的工作表，按Alt F11，打开VBA编辑器，在右侧代码窗口中输入下列代码： Sub ColorArray()Dim rCell As Ra
