Determinar si un formulario está abierto

[Benito Bartolomé]

Hola a todos;

Adjunto una macro con un formulario y varios botones que abren un determinado formulario.

Al abrir el formulario este lo hace con un ancho predeterminado y al hacer clic en un determinado botón este se encoje en el ancho.

¿Cómo puedo hacer para que el formulario "principal" recupere el ancho cada vez que cierro los formularios secundarios?

-Quería evitar usar una macro para cerrar el formulario.

Adjunto macro con el ejemplo.

 

Saludos.

MWith.xlsm

[Benito Bartolomé]

Hola de nuevo;

-Creo que ya lo he resuelto.

En  los formularios secundarios en el evento QueryClose he añadido:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
MiFormulario.Width = 360
End If
End Sub

Saludos.