Make a user form 'un-closeable'

[peekbo]

So now that I figured out how to work underneath a user form - how can
make the box uncloseable?

i.e. Everytime you try to click the 'x' - it displays cannot close

 

[Charles]

Ok,

Now you have to add "Done" Button if you want to get rid of th
userform othewise it will always be there. But here is something tha
will cancel the "X". The "X" will still show but when clicked it wil
not close the form.

Heres the code for it.

Private Sub CommandButton1_Click()
Unload Me
End Sub

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

HTH

Charle

 

[peekbo]

Thanks again man. Excatly what I was looking for

 

[Charles]

Happy to Help

Charles

 

[Andrew]

Insert the following in your form code:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim vbResponse As VbMsgBoxResult
vbResponse = MsgBox("Do you want to close this form?", vbYesNo)
If vbResponse = vbNo Then Cancel = True
End Sub

Regards,
Andrew