问与答2：如何实现打开工作簿就自动运行VBA代码？

 

问：如下图所示的工作表，我希望在打开该工作簿时，用户能看到一条关于该工作簿用途的提示消息，如何编写VBA代码？

 

答：有两种实现方法。

第一种，使用Workbook_Open事件。代码如下：

Private Sub Workbook_Open()

    MsgBox '本工作簿用于记录个人私密信息,外人请勿观看!'

End Sub

注意，该代码一定要在ThisWorkbook模块中，如下图所示。

 

第二种，使用Auto_Open()事件。在VBE中，插入一个标准模块，输入下面的代码：

Sub Auto_Open()

    MsgBox '本工作簿用于记录个人私密信息,外人请勿观看!'

End Sub

注意，该代码在标准模块中，且过程名为Auto_Open，如下图所示。

 

用途

使用该方法，可以在打开工作簿时：

1.给用户提示，无论是警告提示还是操作提示。

2.自动加载自定义的内容，包括定制的界面。

3.加密工作簿，只有用户输入正确的密码，才能打开工作簿。

 

--------------------------------------

 

如果您对本文介绍的内容有什么建议或好的示例，欢迎发送邮件给我：[e-mail]

本文属原创文章，转载请联系我或者注明出处。

 

关注《完美Excel》微信公众账号：