作者：乔山办公网日期：
返回目录：excel表格制作
1、首先将Excel文档（默认新建扩展名为zhidaoxlsx），另存为启用宏的工作簿，扩展名为xlsm。
2、按下组合键ALt+F11快速切换到VBA窗口。
3、进入VBA窗口后的界面，如图所示。
4、双击ThisWorkbook后，会弹出一个代码窗口。
5、在版代码窗口中复制粘贴以下代码：Private Sub Workbook_Open()，MsgBox ("欢迎您使用Excel2013")，End Sub。
6、保存，关闭，重新打开Excel（扩展名为xlsm）文档，权效果如图所示。
首先进入VBA编辑器（ALT+F11进入、或者ALT+F8选宏再点编百辑），然后度再打开工程资源管理知器（菜单查看下选中、或者直接按CTRL+R键），在资源管理器里面的ThisWorkBook上双击鼠标，会打开工作的相道关代码，粘贴下面的例子代码：
1
Private Sub Workbook_open()
msgbox "工作表打回开了"
'call 其它宏，或者继续写其它语句
End Sub
这样每次打开工作簿就会执行答Workbook_open宏的代码。