非模态Userform无Unload Me却在End Sub后自动关闭问题排查

我之前也踩过非模态窗体莫名关闭的坑，看了你的代码，大概率是VBA窗体默认实例的生命周期问题，咱们来拆解下原因和解决方案：

问题根源 #

你现在是直接用baseUF.Show vbModeless打开非模态窗体，这调用的是VBA为窗体自动创建的「默认实例」。默认实例的生命周期很脆弱，尤其是当你在它的事件子程序里调用模态子窗体（比如LoadBox.Show默认是模态的），当父窗体的子程序（LoadQuery_Click）执行到Exit Sub或End Sub时，如果没有其他引用指向baseUF的实例，VBA会自动销毁这个实例，导致窗体直接关闭。

而双击唤起的窗体没出问题，大概率是因为那个子窗体关闭后，父窗体的代码没有立即走到子程序的结束点，所以实例没被触发销毁。

解决方案：显式实例化窗体 #

解决这个问题的核心是显式创建并保留baseUF的实例引用，而不是依赖默认实例。

1. 修改打开baseUF的模块代码 #

在模块顶部声明一个全局变量保存实例，然后显式创建并显示：

' 模块级别全局变量，保存baseUF的实例
Dim g_baseUF As baseUF

Sub Button1_Click()
    ' 避免重复打开同一个窗体
    If g_baseUF Is Nothing Then
        Set g_baseUF = New baseUF
        g_baseUF.Show vbModeless
    Else
        ' 如果窗体已经打开，把它带到前台
        g_baseUF.SetFocus
    End If
End Sub

2. 给baseUF添加清理代码（可选但推荐） #

在baseUF的代码里添加Terminate事件，确保窗体关闭时释放引用，避免内存泄漏：

Private Sub UserForm_Terminate()
    ' 释放全局引用
    Set g_baseUF = Nothing
End Sub

3. （可选）显式实例化LoadBox子窗体 #

虽然不是直接原因，但同样建议显式创建子窗体实例，避免后续再踩类似的坑：
修改baseUF里的LoadQuery_Click代码：

Private Sub LoadQuery_Click()
    ' I Dim a bunch of stuff here
    Dim loadBoxInst As LoadBox ' 声明LoadBox实例
    
    ' if there are no saved queries, alert the user
    If saveSht.Range("B3").Value = "" Then
        MsgBox "No saved queries!"
        Exit Sub
    ' if there is only one saved query, add it to the array and pop up the userform that allows for the user to select which save to load
    ElseIf saveSht.Range("B4").Value = "" Then
        save_names = saveSht.Range("B3").Value
        Set loadBoxInst = New LoadBox
        loadBoxInst.Show
    ' otherwise, add all of the save names to the array and pop up that userform
    Else
        save_names = saveSht.Range(saveSht.Range("B3"),saveSht.Range("B3").End(xlDown)).Value
        Set loadBoxInst = New LoadBox
        loadBoxInst.Show
    End If
    ' if the user didn't select a save to load, stop trying to make stuff happen
    If load_name = "" Then
        Exit Sub
    End If
    ' do a bunch of stuff with the selected name here
End Sub

额外检查点 #

• 确认全局变量load_name和save_names的作用域是模块级或全局级，不要在子程序里重复声明导致变量覆盖。
• 如果你的baseUF里有其他涉及窗体实例的操作，都尽量用显式实例的方式调用，比如g_baseUF.MultiPage1而不是baseUF.MultiPage1。

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