UserForms - disabling the little x
 

I have forgotten how to disable the little x (top right of a user form) will
someone prompt me please

TIA



__________ Information from ESET NOD32 Antivirus, version of virus signature database 4178 (20090622) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com

UserForms - disabling the little x
 

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True
End Sub


"JimBo" wrote in message
...
I have forgotten how to disable the little x (top right of a user form)
will someone prompt me please

TIA


__________ Information from ESET NOD32 Antivirus, version of virus
signature database 4178 (20090622) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com

UserForms - disabling the little x
 

Thanks Patrick - Muchly appreciated

"Patrick Molloy" wrote in message
...
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True
End Sub


"JimBo" wrote in message
...
I have forgotten how to disable the little x (top right of a user form)
will someone prompt me please

TIA


__________ Information from ESET NOD32 Antivirus, version of virus
signature database 4178 (20090622) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com





__________ Information from ESET NOD32 Antivirus, version of virus
signature database 4178 (20090622) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com






__________ Information from ESET NOD32 Antivirus, version of virus signature database 4178 (20090622) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com

UserForms - disabling the little x
 

Just to add, to prevent close if user clicked the little x but allow the
form to close with other ways

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
msgbox "don't close with the little x"
else
Msgbox "bye"
end if
End Sub

Regards,
Peter T


"Patrick Molloy" wrote in message
...
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True
End Sub


"JimBo" wrote in message
...
I have forgotten how to disable the little x (top right of a user form)
will someone prompt me please

TIA


__________ Information from ESET NOD32 Antivirus, version of virus
signature database 4178 (20090622) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com