Another Userform Query

AJ · Mar 27th, 2002, 07:09 AM

I've created a couple of userforms with input boxes, Ok and Cancel buttons etc. which are now working fine. However, the one oddity that I can't work out is where to put code that controls what happens when the used clicks on the X at the top right of the form.

Basically I would want to use the same code as I have under my Cancel button but all that happens is the macro continues along to the next stage.

Any help, gratefully received.

Thanks
AJ

Jackeb · Mar 27th, 2002, 07:19 AM

hi,

try putting this bit of code:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

' Prevents use of the Close button

If CloseMode = vbFormControlMenu Then
MsgBox "Clicking the Close button does not work."
Cancel = True
End If

End Sub

anywhere in the userform's code section

i think that the code is self explanitory and you can change it to whatever!

Ed

Sbirro Cornuto · Mar 27th, 2002, 07:21 AM

Put this on the UserForm:

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

*Put your code here*

End Sub

Sbirro Cornuto · Mar 27th, 2002, 07:23 AM

Oops! Sorry Jackeb, didn't notice that you had already given the same exact answer...

AJ · Mar 27th, 2002, 07:24 AM

Perfect. Thanks very much to you both.

Jackeb · Mar 27th, 2002, 07:28 AM

no probs.. a time conflict, just glad that we agree!!

Ed

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 27th, 2002, 07:09 AM	#1
AJ Board Regular Join Date: Mar 2002 Location: =ActiveCell.Address Posts: 478	I've created a couple of userforms with input boxes, Ok and Cancel buttons etc. which are now working fine. However, the one oddity that I can't work out is where to put code that controls what happens when the used clicks on the X at the top right of the form. Basically I would want to use the same code as I have under my Cancel button but all that happens is the macro continues along to the next stage. Any help, gratefully received. Thanks AJ

Mar 27th, 2002, 07:19 AM	#2
Jackeb Board Regular Join Date: Mar 2002 Posts: 81	hi, try putting this bit of code: Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) ' Prevents use of the Close button If CloseMode = vbFormControlMenu Then MsgBox "Clicking the Close button does not work." Cancel = True End If End Sub anywhere in the userform's code section i think that the code is self explanitory and you can change it to whatever! Ed

Mar 27th, 2002, 07:21 AM	#3
Sbirro Cornuto Board Regular Join Date: Mar 2002 Location: Little Italy Posts: 93	Put this on the UserForm: Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True End If Put your code here End Sub

Mar 27th, 2002, 07:23 AM	#4
Sbirro Cornuto Board Regular Join Date: Mar 2002 Location: Little Italy Posts: 93	Oops! Sorry Jackeb, didn't notice that you had already given the same exact answer...

Mar 27th, 2002, 07:24 AM	#5
AJ Board Regular Join Date: Mar 2002 Location: =ActiveCell.Address Posts: 478	Perfect. Thanks very much to you both.

Mar 27th, 2002, 07:28 AM	#6
Jackeb Board Regular Join Date: Mar 2002 Posts: 81	no probs.. a time conflict, just glad that we agree!! Ed