作者：乔山办公网日期：
返回目录：excel表格制作
在thisbook里添加如下代码
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'...自己的程序
End Sub
1、首zhidao先将Excel文档（默认新建扩展名为xlsx），另存为启用宏的工作簿，扩展名为xlsm。
2、按下组合键ALt+F11快速切换到VBA。
3、进入回VBA窗口后的界面，如图所示。
4、双击ThisWorkbook后，会弹出一个代码窗口。
5、在代码窗口中复制粘贴以答下代码：Private Sub Workbook_Open()，MsgBox ("»¶ÓÄúʹÓÃExcel2013£¡")，End Sub。
6、保存，关闭，重新打开Excel（扩展名为xlsm）文档就可以了。
在宏代码百最末尾加上一列关闭度EXCEL的指令就好啦，代码是：内
activeworkbook.close true '保存容关闭本工作簿
activeworkbook.close false 不保存退出
看你需要哪个
excel的vba有几zd个自动宏：auto_open（打开时运行）与auto_close（关闭时运行），你可以把你要操作的代码，写入到auto_close过程中版，则权当此表格被操作关闭是，会执行里面的内容。