Is there a way to disable the close button top right of a userform. I am
after the user only being able to use a commandbutton titled 'Exit'
--
AOU

try this

Private Sub Userform_QueryClose(Cancel As Integer, closeMode As Integer)
If closeMode = 0 Then
Cancel = True
MsgBox "Please use the button!"
End If
End Sub


"AOU" wrote:

Is there a way to disable the close button top right of a userform. I am
after the user only being able to use a commandbutton titled 'Exit'
--
AOU

try this

Private Sub Userform_QueryClose(Cancel As Integer, closeMode As Integer)
If closeMode = 0 Then
Cancel = True
MsgBox "Please use the button!"
End If
End Sub

As a user, I'm accustomed to using that X to close the form. Why make it more
difficult for me? Your userform could call the commandbutton_click procedure
associated with the Exit button.

Option Explicit
Private Sub CommandButton2_Click()
'clean up whatever you need to here.
Unload Me
End Sub
Private Sub Userform_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Call CommandButton2_Click
End If
End Sub



AOU wrote:

Is there a way to disable the close button top right of a userform. I am
after the user only being able to use a commandbutton titled 'Exit'
--
AOU

--

Dave Peterson

Thanks Dave.
But if I close the userfrom using the X it doesn`t save the data on the
textboxes. So the reason to use the commandbutton is to hide the userform so
that when opening it agian it has the details last entered.
--
AOU


"Dave Peterson" wrote:

As a user, I'm accustomed to using that X to close the form. Why make it more
difficult for me? Your userform could call the commandbutton_click procedure
associated with the Exit button.

Option Explicit
Private Sub CommandButton2_Click()
'clean up whatever you need to here.
Unload Me
End Sub
Private Sub Userform_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Call CommandButton2_Click
End If
End Sub



AOU wrote:

Is there a way to disable the close button top right of a userform. I am
after the user only being able to use a commandbutton titled 'Exit'
--
AOU

--

Dave Peterson