CODEWITHSUNDEEP
vbauserform
SilentRevolution
SilentRevolution

Reputation: 1513

UserForm Close Event

I have a UserForm which is opened and closed in a loop while a condition exists. The users can click several buttons which performs an action. The problem is the unpredictability of users. One of those problems is, users, instead of clicking one of the buttons, clicking the close window button on top of the UserForm which progresses the loop without performing an action.

--- edit---
Is there an event with that button with which I can execute code so that I can let it perform the same action as the cancel button on the form itself. I do not need to hide or disable it per se.

Upvotes: 7

Views: 54943

Answers (2)

André Oliveira
André Oliveira

Reputation: 41

Instead of a MsgBox, you can just focus a button:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Cancel = True
        Me.Close_Button.SetFocus
    End If
End Sub

EDITED: I discovered a better option:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    ' YOUR CODE HERE (Just copy whatever the close button does)

    If CloseMode = vbFormControlMenu Then
        Cancel = False
    End If

End Sub

Upvotes: 4

Sam Gilbert
Sam Gilbert

Reputation: 1702

For example, you can add the macro below to the UserForms code module:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Cancel = True
        MsgBox "You can't close the dialog like this!"
    End If
End Sub

Upvotes: 19

Related Questions