Vba 点击";X";在Excel用户窗体上,有时会关闭电子表格

Vba 点击";X";在Excel用户窗体上,有时会关闭电子表格,vba,excel,userform,Vba,Excel,Userform,我正在写一个电子表格,双击某些单元格可以打开一个用户表单。当某些用户单击“X”关闭userform时,整个工作簿将关闭(这不是预期的行为)。如果单元格中有内容,则会发生这种情况;如果单元格为空,则当userform关闭时工作簿不会关闭 以下是调用Userforms的常规代码: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim requestID As Long Dim ro

我正在写一个电子表格,双击某些单元格可以打开一个用户表单。当某些用户单击“X”关闭userform时,整个工作簿将关闭(这不是预期的行为)。如果单元格中有内容,则会发生这种情况;如果单元格为空,则当userform关闭时工作簿不会关闭

以下是调用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
Private子工作表\u双击之前(ByVal目标作为范围,Cancel作为布尔值)
将请求ID变长
暗行数与长行数相同
rowCount=UsedRange.Rows.Count

如果(Target.Row>2)和(Target.Row可能是系统中的安装有问题


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

我通过重新启动解决了问题--只需关闭计算机并再次打开即可


仅此而已。我不知道它为什么起作用,但它起作用了。

表单中是否有QueryClose事件?如果是,其中的代码是什么?这很有趣。我不确定为什么这个答案被否决。请看问题,这个问题只发生在一台计算机上。这肯定是由于安装问题。安装excel时,某些加载项可能不会起作用这些问题在Microsoft answer网站上也有报道。请尝试使用Microsoft提供的工具重新安装或修复安装。我也不知道为什么会被否决,所以我投票支持它。即使它不是答案,听起来也不是一个坏主意。感谢你的手势Remou。我看到的是t由于一些安装问题,excel的某些功能不起作用。我投了反对票,因为我认为这不是答案。最好先进行广泛调试。然后尝试代码清理、删除其他加载项、删除临时文件等。昨天的另一个类似情况-“excel不提示在应用程序上保存未保存的文件。退出”-已通过在代码不起作用的计算机上删除解算器修复。在您真正尝试查明问题后,重新安装应该是最后的手段。我同意Doug的评论。重新安装是锁定问题失败时的最后一步