DESACTIVAR BOTÓN DE CERRADO (X) EN UN USERFORM

Hoy quiero publicar una pequeña entrada, a modo de píldora formativa, de cómo se puede desactivar el botón de cerrado de un userform.

Muchas veces, cuando confeccionamos aplicaciones nos interesa que el usuario salga de las mismas pulsando un determinado botón y no cerrando la ventana de formulario directamente. Esto lo conseguiremos introduciendo un código específico en el userform:

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

En el momento que lo apliquemos, el userform no se podrá cerrar desde el botón habitual:

Con ejemplo de la imagen, podemos ver claramente como ahora debemos pulsar el botón que pone «CERRAR» para salir del formulario y no hacerlo pulsando la X.

Adicionalmente he añadido código para que al abrir el archivo de Excel automáticamente se genere el form, se debe colocar en el módulo Thisworkbook:

Private Sub Workbook_Open()
UserForm1.Show
End Sub

También para salir del formulario pulsando en el botón «CERRAR», debemos colocar el siguiente código dentro del userform:

Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub

Y este ha sido el pequeño post de hoy, un sencillo truco para facilitar nuestros procesos 🙂

Descarga el archivo de ejemplo pulsando en: DESACTIVAR BOTÓN DE CERRAR EN UN USERFORM