单击Excel用户表单上的“X”有时会关闭电子表格

Question

我正在编写一个电子表格，双击某些单元格会打开一个用户表单。当某些用户单击“X”以关闭用户窗体时，整个工作簿将关闭（这不是预期的行为）。如果单元格有内容，则会发生这种情如果单元格为空，则在用户窗体关闭时工作簿不会关闭。

以下是调用Userforms的一般代码：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim requestID As Long
Dim rowCount As Long

rowCount = UsedRange.Rows.Count

If (Target.Row > 2) And (Target.Row <= rowCount) Then
    requestID = Cells(Target.Row, 1)
    Select Case Target.Column
        Case 2 To 4
            requestUpdateForm.populate requestID
            requestUpdateForm.Show

        Case 5
            initialSearchForm.populate requestID
            initialSearchForm.Show

        'etc, more forms using Case statements

    End Select
End If

我以前见过这种行为，除了相反之处：单击“X”关闭从空白单元格打开的表单关闭工作簿，当我创建新工作簿并复制所有代码时，这个问题就消失了进入它。

让我感到困惑的是，这个错误发生在一个用户的系统而不是另一个用户的系统上，即使它们都安装了相同的Excel。

Answer 1

在您的系统中安装excel时可能存在问题。

尝试重新安装或修复安装。

Answer 2

我通过重新启动来解决它 - 只需关闭计算机并再次打开它。

这就是全部。我不知道它为什么有效但它有效。