如下图所示的工作表,我希望在打开该工作簿时,用户能看到一条关于该工作簿用途的提示消息,如何编写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.加密工作簿,只有用户输入正确的密码,才能打开工作簿。