View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Kirk[_2_] Kirk[_2_] is offline
external usenet poster
 
Posts: 17
Default 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



.