为什么隐藏 Excel主窗口无效？

gumg · 发表于 2020-1-31 19:01

打开EXCEL文件后自动隐藏 Excel主窗口，显示欢迎窗体，3秒后卸载欢迎窗体，显示主窗口。尝试编写的代码如下，但是主窗口一直没有隐藏，不知道问题出在哪？请高手指点，谢谢！！
Private Sub Workbook_open()
Application.Visible = False
Welcome.Show 0
Application.OnTime Now() + TimeValue("00:00:03"), "zxg"
Application.Visible = True
End Sub

Sub zxg()
Unload Welcome
End Sub

山菊花 · 发表于 2020-1-31 19:32

Private Sub Workbook_open()
Application.Visible = False
Welcome.Show 0
Application.OnTime Now() + TimeValue("00:00:03"), "zxg"
End Sub

Sub zxg()
Unload Welcome
Application.Visible = True
End Sub

gumg · 发表于 2020-1-31 20:25

本帖最后由 gumg 于 2020-1-31 20:34 编辑

山菊花发表于 2020-1-31 19:32
Private Sub Workbook_open()
Application.Visible = False
Welcome.Show 0

试了一下可以了，感谢! 就是不知道为什么这样改

		自动登录	找回密码
密码			免费注册

[求助] 为什么隐藏 Excel主窗口无效？