问:如下图所示的工作表,我希望在打开该工作簿时,用户能看到一条关于该工作簿用途的提示消息,如何编写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.加密工作簿,只有用户输入正确的密码,才能打开工作簿。
--------------------------------------
如果您对本文介绍的内容有什么建议或好的示例,欢迎发送邮件给我:xhdsxfjy@163.com
本文属原创文章,转载请联系我或者注明出处。
关注《完美Excel》微信公众账号:
联系客服