如何让VBA代码在新打开任何工作簿的时候都被触发执行？

作者：绿色风分类：时间：2022-08-17 浏览：149

楼主轩辕轼轲	Q：如何让VBA代码在新打开任何工作簿的时候都被触发执行？ A：有人说这样的问题必须使用类才能实现，其实不用类也是可以做到的，具体实现代码如下，将代码放在Thisworkbook中： Private WithEvents App As Application Sub Workbook_Open() Set App = Application End Sub Private Sub App_WorkbookOpen(ByVal Wb As Workbook) MsgBox "你好" '将你需要在新开工作簿时执行的代码放在此处即可 End Sub 如此，当这个工作簿打开之后，再打开其他的工作簿的时候，MsgBox就那行代码就会被触发执行。打开此工作簿之后再新打开工作簿会弹出提示框.rar
2楼悟空师弟	好方法，顶一个。
3楼水星钓鱼	其时ThisWorkbook就是一个类，只不过是内置的类而已。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表

楼主轩辕轼轲	Q：如何让VBA代码在新打开任何工作簿的时候都被触发执行？ A：有人说这样的问题必须使用类才能实现，其实不用类也是可以做到的，具体实现代码如下，将代码放在Thisworkbook中： Private WithEvents App As Application Sub Workbook_Open() Set App = Application End Sub Private Sub App_WorkbookOpen(ByVal Wb As Workbook) MsgBox "你好" '将你需要在新开工作簿时执行的代码放在此处即可 End Sub 如此，当这个工作簿打开之后，再打开其他的工作簿的时候，MsgBox就那行代码就会被触发执行。打开此工作簿之后再新打开工作簿会弹出提示框.rar
2楼悟空师弟	好方法，顶一个。
3楼水星钓鱼	其时ThisWorkbook就是一个类，只不过是内置的类而已。