1、打开Excel表格，点击【开发工具】，【Visual Basic】打开VBA编辑器，也可以使用【Alt+F11】组合键打开VBA编辑器。
2、点击VBA编辑器菜单栏上面的【插入】，【模块】。
3、在VBA编辑器的代码框里面输入以下代码程序：Sub ExitWorkbook()On Error Resume Next '忽略运行过程中出现的错误Application.DisplayAlerts = False '忽略运行过程中出现的警告ThisWorkbook.Save '保存该工作表ThisWorkbook.Close '关闭此工作表End Sub
4、保存VBA代码程序，关闭VBA编辑器，回到Excel工作表界面，按下【Alt+F8】组合键调出“宏”的对话框。
5、点击【执行】，将会发现工作已经被关闭，Excel程序并没有关闭。
6、ThisWorkbook.Close主要关闭与它相关窗口，但它不会结束程序。如果要关闭其他工作表，可以写成：Workbooks("工作表名称").Close 或 Windows("工作表名称").Close它们其执行的结果是一样的，如：Sub ExitWorkbook()On Error Resume Next '忽略运行过程中出现的错误Application.DisplayAlerts = False '忽略运行过程中出现的警告ThisWorkbook.Save '保存该工作表Windows("Close关闭工作表").Close '关闭此工作表End Sub
