《VBA高级应用30例》（版权10178985），是我推出的第十套教程，教程是专门针对高级学员在学习VBA过程中提高路途上的案例展开，这套教程案例与理论结合，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中分发VBA程序，写好的程序可以升级。

本套教程共三册三十个专题，VBA高级应用30例应用1：确保打开文件时响应事件

【分享成果，随喜正能量】 日子是活给自己看的，不是来源于别人的指指点点；日子是活给时光看的，别让时光的压力把咱压得喘不过气来。。

应用1 在EXCEL中构建加载项

9 确保打开文件时响应事件

最后，我们希望在工作簿打开时就会调用代码，以便外接程序立即开始响应这些事件。因此，在这个工作簿中，我添加了如下代码：

Private Sub Workbook_Open()

Application.OnTime Now, "'" & ThisWorkbook.FullName & "'!Init"

End Sub

上述代码中我使用OnTime方法，可以确保Excel在调用Init之前加载所有内容。有时，Excel甚至在完成内部管理之前就触发工作簿打开事件。

10 创建外接程序

创建外接程序非常简单，只需单击“文件”“另存为”，在保存文件类型中选择“Excel加载宏”选项：

另存为对话框：

选择保存类型：

我们也可以换成自己喜欢的名称，我提供的程序文件中加载宏文件为：mynzSheetTools.xlma

• 选择Excel加载项时，Excel会将文件夹更改为系统上的标准加载项文件夹，这足让人感到困惑。因为我们从来都不想在那里保存我的加载项，这让们人很恼火。我们只需单击“上一步”按钮即可返回上次打开文件（或将文件保存到）的原始文件夹：

11 验证我们的程序

我们随便打开一个工作薄：

然后找到我们的刚才建立的加载宏,mynzSheetTools.xlma。双击打开，此时刚才打开的工作薄会出现下面的变化：

我们点击“工作表工具”：

此时我们就可以利用刚才我们的工具了，点击“Table of contents”：

同时，我们在选择工作表的选项中选择工作表，选择后该工作表会自动激活：

到此，我们从立项到任务完成就全部完成了。

结论: 利用VBA创建我们自己的应用程序接口是一项十分有意义的工作，本专题中我讲解了一个应用程序如何立项，如何规范用户的需求，一直到各个功能的实现，都进行了详细的讲解。最后给大家展示了我们的成果。本文涉及到了很多的VBA知识点，包括高级类的内容。希望本专题的内容对于大家开发应用程序有所帮助。

今日内容回向：

1 应用程序立项过程要完成那些工作？

2 如何实现高版本office功能区的自定义？

3 如何把我们的应用程序另存为加载项？

• 本讲内容参考程序文件：高级应用01.xlsm
• 第三方应用软件：OfficeRibbonXEditor-NETFramework-Installer.EXE
• 实现的外接应用程序：mynzSheetTools.xlma

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：