Disabling the "X" (Close) on a UserForm
Thanks a lot. That worked PERFECT.
Kirk
-----Original Message-----
Kirk,
Use the form's QueryClose event. This has 2 arguments,
Cancel and CloseMode.
CloseMode tells you where the close originates from.
vbFormControlMenu 0 The user has chosen the Close
command from the
Control menu on the UserForm.
vbFormCode 1 The Unload statement is invoked from
code.
vbAppWindows 2 The current Windows operating
environment session is
ending.
vbAppTaskManager 3 The Windows Task Manager is
closing the
application.
You can test this, and if it's from an unload statement,
close else cancel
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer,
CloseMode As Integer)
Cancel = CloseMode < vbFormCode And CloseMode <
vbAppWindows
End Sub
--
HTH
Bob Phillips
"Kirk" wrote in message
...
Is there a way in which to disable the X on a UserForm
so
that User can not close out the form? I need to be
able
to do this for a spreadsheet that is used in both XL97
and XL02.
Any help would be appreciated.
Thanks.
Kirk
.
|