VBA Excel：UserForm中WebBrowser控件2秒后关闭报错求助

报错原因 #

• 宏作用域限制：如果LogoSt过程写在UserForm代码模块内，默认是模块级私有（即使没写Private关键字），而Application.OnTime无法直接调用UserForm模块内的私有过程，它仅能识别标准模块中的公共（Public）宏，或带完整对象引用的公共成员。
• 控件引用失效：若将LogoSt移到标准模块，直接写WebBrowser1.Close会找不到该控件——因为WebBrowser1属于UserForm实例的专属控件，标准模块无法直接访问未指定实例的控件。

解决方法 #

方案1：修改UserForm过程作用域并指定完整调用路径 #

将LogoSt改为UserForm模块的公共过程，同时在Application.OnTime中指定完整的调用路径：

Private Sub UserForm_Initialize()    
    ' 插入GIF的HTML代码
    Dim htmlCode As String
    htmlCode = "<html><body style='margin:0; padding:0;'><img src='C:\Users\XX\Desktop\objects\vid.gif' style='width:100%; height:100%;'></body></html>"
    
    WebBrowser1.Navigate "about:blank"
    WebBrowser1.Document.write htmlCode
    WebBrowser1.Document.Close
    
    ' 指定UserForm的完整过程路径
    Application.OnTime Now() + TimeValue("00:00:02"), "UserForm1.LogoSt"
End Sub

' 改为Public公共过程
Public Sub LogoSt()
    ' 隐藏控件而非直接关闭，避免控件资源释放问题
    Me.WebBrowser1.Visible = False
    ' 若需关闭整个窗体，可替换为：Unload Me
End Sub

方案2：通过标准模块+全局变量传递窗体实例 #

1. 新建标准模块，添加全局变量和处理过程：

Public g_introForm As UserForm1

Sub HideLogo()
    If Not g_introForm Is Nothing Then
        g_introForm.WebBrowser1.Visible = False
        ' 关闭窗体并释放对象
        Unload g_introForm
        Set g_introForm = Nothing
    End If
End Sub

2. 修改UserForm初始化代码，暂存当前窗体实例：

Private Sub UserForm_Initialize()    
    Dim htmlCode As String
    htmlCode = "<html><body style='margin:0; padding:0;'><img src='C:\Users\XX\Desktop\objects\vid.gif' style='width:100%; height:100%;'></body></html>"
    
    WebBrowser1.Navigate "about:blank"
    WebBrowser1.Document.write htmlCode
    WebBrowser1.Document.Close
    
    ' 暂存当前窗体实例到全局变量
    Set g_introForm = Me
    Application.OnTime Now() + TimeValue("00:00:02"), "HideLogo"
End Sub

额外注意事项 #

• 避免直接调用WebBrowser1.Close：该方法会彻底关闭浏览器控件，后续复用会出错，设置Visible = False隐藏控件更稳妥；若目标是关闭启动窗体，直接用Unload Me即可。
• 宏安全检查：确保当前工作簿宏已启用（路径：文件>选项>信任中心>信任中心设置>宏设置，测试阶段可选择"启用所有宏"，正式环境建议使用数字签署的宏）。

内容的提问来源于stack exchange，提问作者vbaguru