VBA UserForm卸载时意外关闭其他表单及实例识别问题

可能原因 #

默认表单实例的隐式行为导致：当直接调用默认实例（如pswdPrompt.Show）时，VBA在模态表单嵌套场景下，可能会在密码表单执行Hide后隐式触发主表单的Unload指令，对应CloseMode=1。

解决方案 #

改用显式实例化表单，避免依赖默认实例：

1. 在主表单usf_TDM的复选框点击事件中，显式声明并创建密码表单实例：

Private Sub chkPassword_Click()
    If chkPassword.Value = True Then
        Dim pswdForm As New pswdPrompt
        ' 模态显示密码表单，限制主表单操作
        pswdForm.Show vbModal
        ' 按需手动释放实例
        Set pswdForm = Nothing
    End If
End Sub

2. 在密码表单pswdPrompt的按钮事件中，仅执行Hide操作：

Private Sub btnConfirm_Click()
    ' 密码验证逻辑...
    Me.Hide
End Sub

Private Sub btnCancel_Click()
    Me.Hide
End Sub

3. 检查主表单usf_TDM的QueryClose事件，确保无额外隐式卸载逻辑：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ' 仅保留自定义逻辑，比如拦截菜单关闭
    If CloseMode = vbFormControlMenu Then
        Cancel = True
        MsgBox "请通过指定按钮关闭表单"
    End If
End Sub

方法1：模块级变量存储实例 #

在标准模块中声明公共变量，直接绑定表单实例：

' 标准模块（如Module1）
Public g_pswdForm As pswdPrompt
Public g_mainForm As usf_TDM

创建实例时赋值，后续可直接通过变量访问：

' 工作簿打开事件初始化主表单
Private Sub Workbook_Open()
    Set g_mainForm = New usf_TDM
    g_mainForm.Show vbModeless
End Sub

' 主表单复选框事件初始化密码表单
Private Sub chkPassword_Click()
    If chkPassword.Value = True Then
        Set g_pswdForm = New pswdPrompt
        g_pswdForm.Show vbModal
    End If
End Sub

方法2：自定义属性标记实例 #

在表单模块中添加自定义属性，用于识别实例：

' pswdPrompt表单模块
Public Property Get FormID() As String
    FormID = "PasswordPrompt"
End Property

' usf_TDM表单模块
Public Property Get FormID() As String
    FormID = "MainTDMForm"
End Property

遍历VBA.UserForms时通过属性匹配：

Dim frm As Object
For Each frm In VBA.UserForms
    If frm.FormID = "PasswordPrompt" Then
        frm.Hide
        Exit For
    End If
Next frm

方法3：使用Tag属性标记 #

创建实例时设置Tag属性，后续通过Tag识别：

Set g_pswdForm = New pswdPrompt
g_pswdForm.Tag = "PasswordPrompt"
g_pswdForm.Show vbModal

遍历识别逻辑：

Dim frm As Object
For Each frm In VBA.UserForms
    If frm.Tag = "PasswordPrompt" Then
        ' 执行目标操作
        Exit For
    End If
Next frm

方法4：集合存储实例 #

用集合统一管理表单实例，通过键值对快速访问：

' 标准模块中声明集合
Public g_formCollection As New Collection

' 创建实例时添加到集合
Set g_mainForm = New usf_TDM
g_formCollection.Add g_mainForm, "MainForm"
g_mainForm.Show vbModeless

Set g_pswdForm = New pswdPrompt
g_formCollection.Add g_pswdForm, "PasswordForm"
g_pswdForm.Show vbModal

访问实例时直接通过键获取：

' 隐藏密码表单
g_formCollection("PasswordForm").Hide
' 释放并移除实例
Set g_formCollection("PasswordForm") = Nothing
g_formCollection.Remove "PasswordForm"

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