Preventing Form Dialog dismiss (Red X)
 

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

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

Preventing Form Dialog dismiss (Red X)
 

This might be even more useful...

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 If
End Sub


Jim Cone

Preventing Form Dialog dismiss (Red X)
 

Thanks Jim,

That was just what I was looking for.
:)

"Jim Cone" wrote:

This might be even more useful...

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 If
End Sub


Jim Cone