如何实现打开工作簿就自动运行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.加密工作簿，只有用户输入正确的密码，才能打开工作簿。