Closing Excel Userform "X"

[sassriverrat]

Good Morning,

I wrote this piece of code to attempt to close excel if the userform "X" is used to close the userform. Basically the userform opens when excel does and asks for one of two buttons. If neither button is pushed (i.e. someone closes the userform), then I want excel to close.

please note that clicking either of the buttons in the userform unloads it so I tried an Userform_Terminate() and had a terrible time getting the workbook back open to delete that...

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)MsgBox "Do you really want to close?", vbYesNoCancel
    If vbYes Then
        'Application Closer
        If Workbooks.Count > 1 Then
            ActiveWorkbook.Close
        Else: Application.Quit
        End If
    Else: Exit Sub
    End If
End Sub

 

[nemmi69]

You could try

[COLOR=#333333]Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)[/COLOR]
[COLOR=#333333]If CloseMode = 0 Then Cancel = True[/COLOR]
[COLOR=#333333]End Sub
[/COLOR]

 

[sassriverrat]

Hmmm... tried but no go. I don't get a response out of the button at all.

 

[nemmi69]

Well its designed to stop the close. Replace the "Cancel = True" with what you want to happen.

 

[sassriverrat]

Perfect.

Here's the tweaked in case anyone needs/wants it!

  Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)If CloseMode = 0 Then
    'Application Closer
    If Workbooks.Count > 1 Then
        ActiveWorkbook.Close
    Else: Application.Quit
    End If
End If
End Sub