作者：乔山办公网日期：
返回目录：excel表格制作
假如你的小程百序如下:
Sub test()
MsgBox "OK,TEST!"
End Sub
那么你可度以在增加知下面的代码,打到打道开工作薄就自动执行内上面的小程容序
Sub auto_open()
test
End Sub
1、首先将Excel文档（默认新建扩展名为xlsx），百另存为启用宏的工作簿，扩展名为xlsm。
2、按下组合键度ALt+F11快速切换到VBA窗口。
3、进入VBA窗口后的界面知，如图所示。
4、双击ThisWorkbook后，会弹出一个道代码窗口。
5、在代码窗口中复制粘贴专以下代码：Private Sub Workbook_Open()，MsgBox ("欢迎您使用Excel2013")，End Sub。
6、保存，关闭，重新打开Excel（扩展名为xlsm）文档，效属果如图所示。
Private Sub Workbook_Open()
call 宏2
End Sub
将以上代码复制到book2的thisworkbook下
open 事件
Private Sub Workbook_Open()
End Sub
在VBE窗口中左边的“thisworkbook" ,双击，就出现左边（通用）zhidao，专把它选为workbook，再选OPEN事件
在这个事件中加入代码，就可以了！
也可以用属
Sub auto_open()
End Sub
这个放在任何模块都可以