MsgBox Prompt w/ No "X" to close

[Pablo]

hello:

this ng is great! Without _really_ knowing any "coding" I have been
able to patch together the following from postings in this group:

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

' Prevents use of the Close button

If CloseMode = vbFormControlMenu Then
Cancel = True
ErrorBox = MsgBox("Would you like to close this workbook?",
vbYesNo, "Error")
If ErrorBox = YbYes Then
ActiveWorkbook.Close
ElseIf ErrorBox = YbNo Then
Cancel = True
End If
End If
End Sub


However, when I hit the run button, the form pops up, and if I click
the X in the top right corner of the form, the message box pops up. So
far so good.

But if I click on [Yes] it's no different than clicking [No]. [No]
does what I want, but [Yes] doesn't close the book.

Thanks for your help!

 

[Tom Ogilvy]

the constant is
vbYes rather than YbYes and vbNo rather than YbNo

 

[Tod]

Try it this way:

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

' Prevents use of the Close button
If CloseMode = vbFormControlMenu Then
Cancel = True
If MsgBox("Would you like to close this workbook?",
vbYesNo, "Error") = vbYes Then
ActiveWorkbook.Close
ElseIf ErrorBox = YbNo Then
Cancel = True
End If
End If
End Sub

 

[Guest]

You have the Eagle eye my friend. :0)

-----Original Message-----
the constant is
vbYes rather than YbYes and vbNo rather than YbNo

--
Regards,
Tom Ogilvy

hello:

this ng is great! Without _really_ knowing any "coding" I have been
able to patch together the following from postings in this group:

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

' Prevents use of the Close button

If CloseMode = vbFormControlMenu Then
Cancel = True
ErrorBox = MsgBox("Would you like to close this workbook?",
vbYesNo, "Error")
If ErrorBox = YbYes Then
ActiveWorkbook.Close
ElseIf ErrorBox = YbNo Then
Cancel = True
End If
End If
End Sub


However, when I hit the run button, the form pops up, and if I click
the X in the top right corner of the form, the message box pops up. So
far so good.

But if I click on [Yes] it's no different than clicking [No]. [No]
does what I want, but [Yes] doesn't close the book.

Thanks for your help!

.