I found this in the archives. Maybe it will help.

Dan

Hello,
created a Userfrom, and noticed that it shows the Close
button (X), in the upper right top. Is there a way to
disable this? Or maybe add a code that if user clicks on
it, to get a message?
I know that in the properties one can show/hide the what's
this icon. So looking somethign for the Close ICON.

Any help would be appreciated.

thanks,

Juan


Juan
More options May 6 2004, 12:47 pm
Hello,
where exactly do i do this?
I have a button, when I click this it opens the Userfrom.
In the button I have the following:
Private Sub CommandButton2_Click()
UserForm1.Show
End Sub
I tried to incorporate your code but doesn't open the
form.

Please advise thanks,
juan

put this in your code

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

this will stop the user from closing the userform

Steve Garman

Date: Thu, 06 May 2004 21:04:16 +0100
Local: Thurs, May 6 2004 1:04 pm
Subject: Userform Close button

You can use the form's QueryClose event to detect that the user
clicked
the X and cancel it.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
Integer)
If CloseMode = vbFormControlMenu Then
Cancel = 1
End If
End Sub

Bob Phillips

From: "Bob Phillips"
Date: Thu, 6 May 2004 21:36:20 +0100
Local: Thurs, May 6 2004 1:36 pm
Subject: Userform Close button

Juan,

This is just another event so paste it in the form module at the end.

But be careful, the code provided will never let you close the form.
There
are 4 close generating events, and you should only cancel at most 3.
In your
case, I think you only need to use one, like so

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
Integer)
Select Case CloseMode
Case vbFormControlMenu: '0 user chosen Close command from
Control
menu on the UserForm
Cancel = -1
Case vbFormCode: '1 unload statement is invoked from
code.
Case vbAppWindows: '2 current Windows operating
environment
session is ending.
Case vbAppTaskManager: '3 Windows Task Manager closing the
application
End Select

End Sub

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

Juan
From: "Juan"
Date: Thu, 6 May 2004 14:15:27 -0700
Local: Thurs, May 6 2004 2:15 pm
Subject: Userform Close button

First off want to thank all of you you provided me with
help.

I used the following:
Private Sub UserForm_QueryClose(Cancel As Integer,
CloseMode As Integer)
Select Case CloseMode
Case vbFormControlMenu
Cancel = -1
End Select
This works since it doesnt' close the form so user must
click O.K or the cancel button.

Once again thanks,

Juan