UserForm关闭事件卡顿求助：二级窗体关闭时Excel无响应

问题描述 #

我通过多个UserForm打开并隐藏了第二个工作簿，关闭前会对它进行读写操作，之前一切正常，但点击窗体右上角红叉关闭时，第二个工作簿会残留为打开且隐藏的状态。

为解决这个问题，我给每个UserForm都加了UserForm_QueryClose子程序，在第一个窗体上运行正常，但在第二个窗体触发该事件时，Excel直接卡死，只能通过任务管理器结束进程。怀疑是资源未正常释放或执行顺序有误，求解决建议。

原有代码 #

启动初始窗体的代码 #

'launch initial UserForm:
Sub GetForm()
 Frm1.Show
End Sub

Frm1 窗体代码 #

'Frm1 UserForm:
Private Sub UserForm_Initialize()
 'open database workbook and hide
 Workbooks.Open Filename:=g_path & "\\" & g_file
 Windows(g_file).Visible = False
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 If CloseMode = vbFormControlMenu Then
  'close Form1
  Unload Frm1

  'close the database workbook
  Workbooks(g_file).Activate
  Windows(g_file).Visible = True
  ActiveWorkbook.Close SaveChanges:=False
 End If
End Sub

Private Sub CmdOk_Click()
 Workbooks(g_file).Activate
 'launch Form2
 Frm2.Show
End Sub

Frm2 窗体代码 #

'Frm2 UserForm:
Private Sub UserForm_Initialize()
 'close initial UserForm
 Unload Frm1
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 If CloseMode = vbFormControlMenu Then
  'close Form2
  Unload Frm2

  'close the database workbook
  Workbooks(g_file).Activate
  Windows(g_file).Visible = True
  ActiveWorkbook.Close SaveChanges:=False
 End If
End Sub

问题原因与修复方案 #

核心问题 #

1. 重复卸载引发资源冲突：在Frm2_Initialize中直接卸载Frm1会销毁窗体对象，后续隐性引用易导致资源混乱；同时在QueryClose中手动Unload当前窗体，会触发二次卸载流程，造成Excel内核锁死。
2. 冗余的工作簿操作：激活工作簿、设置可见性属于不必要操作，频繁切换激活状态容易引发Excel内核交互冲突。
3. 未处理的异常风险：依赖全局变量g_path和g_file，若变量值异常会导致找不到工作簿，触发未捕获错误进而引发卡顿。

修复后的代码 #

调整Frm1的QueryClose事件

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 If CloseMode = vbFormControlMenu Then
  ' 无需手动Unload当前窗体，QueryClose触发时系统会自动处理
  CloseDatabaseWorkbook
 End If
End Sub

调整Frm2的Initialize和QueryClose事件

Private Sub UserForm_Initialize()
 ' 隐藏Frm1而非直接卸载，保留对象引用避免资源问题
 Frm1.Hide
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 If CloseMode = vbFormControlMenu Then
  CloseDatabaseWorkbook
  ' 关闭自身前统一卸载Frm1
  Unload Frm1
 End If
End Sub

新增通用关闭工作簿的子程序（放在标准模块中）

Sub CloseDatabaseWorkbook()
 On Error Resume Next ' 避免工作簿已关闭的错误
 Dim wb As Workbook
 Set wb = Workbooks(g_file)
 If Not wb Is Nothing Then
  wb.Close SaveChanges:=False
  Set wb = Nothing
 End If
 On Error GoTo 0
End Sub

额外优化建议 #

• 避免使用ActiveWorkbook或Activate，直接通过对象变量引用工作簿，减少内核交互冲突。
• 窗体切换时优先使用Hide而非Unload，仅在程序完全退出时统一卸载所有窗体。
• 给全局变量g_path和g_file增加有效性校验，确保工作簿路径正确。

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