Hi again,

I hope everyone is keeping well.

I'm wondering if there is any way to disable or remove the X button on the
top right of a UserForm?

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

"dimm" wrote:

> Hi again,
>
> I hope everyone is keeping well.
>
> I'm wondering if there is any way to disable or remove the X button on the
> top right of a UserForm?

Instead of just canceling, why not have it run the code in your cancel
button. That's why the user clicked the X anyway, right?

Assuming the cancel button is named btnCancel:

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

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. - http://PeltierTech.com
_______


"Mike" <(E-Mail Removed)> wrote in message
news:2C190C30-A70D-41D4-A98D-(E-Mail Removed)...
> Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
> If CloseMode = vbFormControlMenu Then
> Cancel = True
> Exit Sub
> End If
> End Sub
>
> "dimm" wrote:
>
>> Hi again,
>>
>> I hope everyone is keeping well.
>>
>> I'm wondering if there is any way to disable or remove the X button on
>> the
>> top right of a UserForm?