Disabling the "X" (Close) on a UserForm

  • Thread starter Thread starter Kirk
  • Start date Start date
K

Kirk

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
 
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




.
Click to expand...
 
Back
Top