controlbox property?

[dawall33]

I need to keep the user from using the red x on a userform to close the form.
I found several mentions of a controlbox property. It is not listed under
the properties of the form.

Where do I set this when the form is displayed?

 

[dan dungan]

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: Re: 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" <[email protected]>
Date: Thu, 6 May 2004 21:36:20 +0100
Local: Thurs, May 6 2004 1:36 pm
Subject: Re: 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" <[email protected]>
Date: Thu, 6 May 2004 14:15:27 -0700
Local: Thurs, May 6 2004 2:15 pm
Subject: Re: 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

 

[Dave Peterson]

You mean the top right X?

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
msgbox "Don't use that X"
cancel = true
End If
End Sub

But I would think it would be much more standard to let the user click the X.
If there's some code that needs to run if the user cancels, then have this
routine call the BTNCancel_click procedure.