VBA用户表单关闭导致excel挂起

我在这里遇到了一个导致excel挂起的宏问题。我已经尝试了好几种选择，并进行了无休止的搜索。我有3张表格，但是分开的。以下是我的步骤：

用户窗体弹出

在表单中双击列表框中的项

打开另一个工作簿并在每个工作表上运行代码。

• （这是在另一个函数中完成的，工作非常完美，大约需要15秒，以新工作簿的焦点结束。）

关闭用户窗体。（这会导致其挂起时间从7秒到90秒，具体取决于其他工作簿的大小。）

下面的代码（请原谅格式不正确，我必须使用手机…无法通过计算机登录。）

---

我重新启动了我的电脑，这似乎解决了它。很抱歉。

我重新启动了计算机，这似乎解决了问题。很抱歉。

这有很多活动部件。您是否确认其他工作簿中的代码在没有用户表单的情况下运行正常？它是否曾经在没有挂起的情况下运行并完成？ie的

LoadAndFormat“工作簿名”

是否能完美地在子系统中工作？是的，我有。。。而且它每次都能完美地工作。它的略图或粗略等价物是：“Sub-LoadAndFormat（fp-as-string）”“set s=workbook.open（fp，false）”，用于s.sheets“”mysheet.columns（“B:B”）中的每个mysheet。插入“”下一个mysheet“”end-Sub“是的，我有。。。而且它确实完美无瑕地工作。那么，这就是一个线索。我们应该研究它挂起的文件和代码。请参阅我对这个问题的回答：。与您相关的是如何声明和显示用户表单，然后卸载它。在你给我们看的代码中留下隐藏。让卸载在控件返回调用过程时发生。看看这种方法是否能得到更好的结果？这其中有很多活动部件。您是否确认其他工作簿中的代码在没有用户表单的情况下运行正常？它是否曾经在没有挂起的情况下运行并完成？ie的

LoadAndFormat“工作簿名”

是否能完美地在子系统中工作？是的，我有。。。而且它每次都能完美地工作。它的略图或粗略等价物是：“Sub-LoadAndFormat（fp-as-string）”“set s=workbook.open（fp，false）”，用于s.sheets“”mysheet.columns（“B:B”）中的每个mysheet。插入“”下一个mysheet“”end-Sub“是的，我有。。。而且它确实完美无瑕地工作。那么，这就是一个线索。我们应该研究它挂起的文件和代码。请参阅我对这个问题的回答：。与您相关的是如何声明和显示用户表单，然后卸载它。在你给我们看的代码中留下隐藏。让卸载在控件返回调用过程时发生。看看这种方法是否能带来更好的结果？

Private sub lb_blah_DblClick (Byval Cancel as MSForms.ReturnBoolean)
  Me.lbl_blah2.caption = "opening aND running"
  'Open and edit xls - Works fine.
  LoadAndFormat me.lb_blah.value

  Me.lbl_blah2.caption = "Ran through format."
  Me.repaint

  '90 seconds with 29 sheets
  'Me.hide
  'Application.enableevents = false '70 seconds

  Unload me '90 seconds - 29 sheets

End Sub