如何让excel工作簿打开时出现欢迎到来的对话框：（VBA）

Question

还是不能自动出来,我的是03版excel，好像没有xlsm这种格式,请问还有别的办法吗？谢谢

Answer 1

方法如下：

1.打开所需要的excel工作簿,ALT+F11打开 visual basic 编辑器
2.在visual basic 编辑器里,点 "视图"-"工程资源管理器"(快捷键Ctrl+R),双击左侧的"Thisworkbook",粘贴上代码
Private Sub Workbook_Open()
MsgBox "欢迎光临"
End Sub

保存后关闭,重新打开就行了

Answer 2

private sub workbook_open()
msgbox " 欢迎来到"
end sub
保存为:xlsm格式文档
当你打开该文档时,自动弹出对话框.
如果你想只要打开EXCEL程序就弹出对话框而不是仅限于打开特定的文档则:
将该文档命名为:AUTO_OPEN,并保存在根目录下XLSTART文件夹中.

Answer 3

在thisworkbook的open事件里面，添加msgbox“欢迎”等等的代码。