运行表单

Question

首先我跑：

Sub ShowForm1()
   form1.Show
end sub

然后弹出form1

之后，我单击image1（在form1上），以便运行以下代码：

Private Sub image1_Click()
    Unload Me
    form2.Show
End Sub

然后弹出form2

在form2上，我点击cancelButton，运行以下代码：

Private Sub cancelButton_Click()
    Unload Me
End Sub

之后，我无法点击工作表的任何单元格。实际上，在运行此代码后，我无法点击任何excel按钮（保存，文件，主页）

有谁知道为什么会这样？

我正在使用Excel 2013，此代码正在加载项上运行。

注意：运行以下代码

Sub ShowForm2()
   form2.Show
end sub

然后单击cancelButton并不会导致此问题发生。

Answer 1

在卸载表单后尝试添加以下行。

Application.ScreenUpdating = False

Answer 2

您是否尝试过在我身上卸载调试器，并逐步按F8键查看代码中达到这一点时会发生什么？

我问的原因是我遇到了完全相同的问题，并且忘记了与 UserForm_Terminate（）事件相关的一些代码，该代码导致用户窗体仍显示在后台（不可见）。我在搞弄“ EnableWindow Application.hWnd ”，并且需要确保以某种特定方式关闭用户窗体，以免“冻结”屏幕。