VBA UserForm关闭后遗留对话框致崩溃的解决方法问询

你的问题核心是窗体卸载流程与文本框Exit事件的执行顺序冲突：用户点击退出按钮后，窗体开始卸载，但当前焦点所在的文本框Exit事件仍在后台执行，导致校验弹窗弹出；当用户选择Repeat时，试图将焦点返回已卸载的文本框，触发对象不存在的错误。

下面是几种可靠的解决方法：

1. 模块级标记位控制校验逻辑 #

这是最直接的方案，通过标记位告诉Exit事件“窗体正在卸载，无需执行校验”：

• 在UserForm模块顶部声明模块级变量：

  Private isUnloading As Boolean
  

• 修改退出按钮的Click事件，先标记卸载状态再执行卸载：

  Private Sub cmdExit_Click()
      isUnloading = True
      Unload Me
  End Sub
  

• 在每个文本框的Exit事件开头加入判断，标记位为True时直接跳过校验：

  Private Sub txtTakeoff_Exit(ByVal Cancel As MSForms.ReturnBoolean)
      ' 窗体正在卸载时，直接退出事件
      If isUnloading Then Exit Sub
      
      ' 原有校验逻辑
      If Trim(Me.txtTakeoff.Value) = "" Then
          Select Case MsgBox("起飞阶段信息不能为空，请修正或跳过", vbRetryCancel + vbExclamation, "校验提示")
              Case vbRetry
                  Cancel = True ' 阻止焦点转移，留在当前文本框
              Case vbCancel
                  ' 跳过校验，允许焦点转移
          End Select
      End If
  End Sub
  

2. 卸载前强制转移焦点 #

通过将焦点提前转移到退出按钮（或无校验的控件），确保Exit事件在窗体卸载前完成：

• 修改退出按钮的Click事件：

  Private Sub cmdExit_Click()
      ' 先将焦点移到自身，触发当前文本框的Exit事件
      Me.cmdExit.SetFocus
      ' 再执行卸载
      Unload Me
  End Sub
  

• 配合标记位使用效果更好：在SetFocus后设置isUnloading = True，避免Exit事件中不必要的校验弹窗。

3. 错误捕获兜底 #

如果上述方案仍有极端场景触发错误，可以在Exit事件中添加错误捕获，直接处理对象不存在的异常：

Private Sub txtCruise_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    On Error GoTo ErrorHandler
    
    ' 原有校验逻辑
    If Trim(Me.txtCruise.Value) = "" Then
        Select Case MsgBox("巡航阶段信息不能为空，请修正或跳过", vbRetryCancel + vbExclamation, "校验提示")
            Case vbRetry
                Cancel = True
            Case vbCancel
                ' 跳过校验
        End Select
    End If

ExitSub:
    Exit Sub
ErrorHandler:
    ' 捕获对象不存在的错误，直接退出事件
    If Err.Number = -2147024809 Then
        Resume ExitSub
    Else
        MsgBox "错误：" & Err.Description, vbCritical
        Resume ExitSub
    End If
End Sub

为什么之前的标记位无效？ #

大概率是标记位的作用域错误（比如用了局部变量而非模块级变量），或者设置时机不对（卸载后才设置标记位，此时Exit事件已经在执行）。确保标记位是UserForm模块级的，且在Unload Me前设置。

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