如何实现打开任何一个工作簿都能自动运行VBA代码

如下参考：

1．首先，百使用扩展XLSM将Excel文档（默认情况下是新的扩展XLSX）保存为一个支持宏的工作度簿。

2．按ALt＋F11快速切换到VBA。

3．击VBA窗口后进入界面，如图所示。

4．双知击此工作簿后，将弹出道一个代码窗口。

5．在代码窗口中，复制并粘贴以下代码：PrivateSubWorkbook＿Open（），MsgBox（＂内»ido－aueOAExcel2013£＇＂），EndSub。

6．保存、关闭并重新打开Excel文档（扩展名容XLSM）。

放在加载宏的 workbook_open 事件里面就可抄以呀，写加载宏百必须明白以下：
thisworkbook 在加载宏里面指 加载宏本身度
activeworkbook 在加载宏里面指 当前打开的工作簿 （不是问加载宏本身）
要检查打开的工作簿的某表的某区域 是否有你要查找的字符串
最好用
with activeworkbook.sheets("xxxx")
……答
end with
这样的语句
这个简单，在workbook_open事件里面写一句话就行了
Sheet1.Activate

神棍007懂起你意思了，这个贴子，采纳我也抢了；知

是的，打开任何一个工作簿 都会有userorm1这个窗体 跳出来；要设置加载宏，道加载宏中要用EXCEL程序事件，代码我写好了。在附件中。内

1、加载宏就是写好代码后另存为XLAM，2007以上板本。2003 存为XLA
2、把写好的加载宏 加载到EXCEL中，容见图片；

有问题HI我，我加你好友了。