Userform QueryClose仅生效一次：点击右上角X按钮后按钮被禁用

我来帮你搞定这个头疼的小问题！你遇到的情况是：主用户窗体点击右上角X按钮时触发QueryClose事件，弹出一个确认保存的弹窗，弹窗的X按钮设置为返回主窗体，但之后主窗体的X按钮就被禁用、点不动了对吧？

问题根源 #

这种情况通常是因为第一次触发主窗体的QueryClose时，窗体的关闭状态被意外锁定，或者弹窗的QueryClose处理逻辑没正确释放主窗体的状态，导致主窗体的关闭按钮（ControlBox）被间接禁用了。

具体解决方案 #

下面分步骤给你调整代码：

1. 修正主窗体的QueryClose逻辑

确保主窗体的QueryClose事件里，当用户选择返回主窗体（比如点击弹窗的X）时，正确设置Cancel = True来阻止主窗体关闭，同时不要误操作ControlBox属性：

Private Sub MainForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ' 仅处理右上角X按钮的关闭请求
    If CloseMode = vbFormControlMenu Then
        Dim saveResponse As Integer
        saveResponse = MsgBox("是否保存更改？", vbYesNo + vbQuestion, "保存确认")
        
        Select Case saveResponse
            Case vbYes
                ' 执行你的保存逻辑
                Call SaveUserFormChanges ' 替换成你的保存函数
                Cancel = False ' 允许主窗体关闭
            Case vbNo
                Cancel = False ' 不保存，直接关闭主窗体
            Case Else
                ' 若用户通过弹窗X返回，阻止主窗体关闭
                Cancel = True
        End Select
    End If
End Sub

2. 调整弹窗的QueryClose处理

弹窗的X按钮只需要隐藏弹窗即可，不要触发任何会影响主窗体的操作，避免主窗体状态异常：

Private Sub ConfirmSaveForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Cancel = True ' 阻止弹窗被卸载
        Me.Hide ' 隐藏弹窗，回到主窗体
    End If
End Sub

3. 排查是否有代码误关ControlBox

检查你的代码里有没有地方设置了Me.ControlBox = False，这个属性一旦设为False，X按钮就会被禁用。如果是临时需要禁用，用完后一定要恢复为True：

' 错误示例：不要在QueryClose里永久关闭ControlBox
' Me.ControlBox = False 

' 正确做法（如果需要临时禁用）：
Me.ControlBox = False
' 执行完操作后恢复
Me.ControlBox = True

额外注意事项 #

• 调试时可以分步查看主窗体的ControlBox属性值，确认第一次点击X后它是否还是True
• 所有Cancel参数的设置要逻辑清晰，不要在不需要的时候随意改变它的值
• 切换窗体时尽量用Hide而不是Unload，避免窗体状态被意外重置

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