Preventing Form Dialog dismiss (Red X)
Jim,
You can use the userform QueryClose event to prevent the form from closing.
Something like...
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode < 1 Then Cancel = True
MsgBox "Please use the cancel button to exit. "
End Sub
Regards,
Jim Cone
San Francisco, USA
"Jim Zeeb" wrote in message
...
I want to detect if someone click the Red X to dismiss the form instead of my
OK or Cancel command buttons. Even better would be to prevent the form from
being dismissed in the first place.
I looked in the Object Browser for UserForm and did not find a BeforeUnload
event. I see the Terminate event, but it appears this is too late to prevent
the form from being terminated.
Is there something I'm missing?
inTHANKSadvance
|