Ejecutar código cuando el formulario está cerrado en VBA (Excel 2007)

Question

Me gustaría ejecutar algún código cuando un usuario cierra un formulario usando el botón x en la esquina superior derecha de la ventana (tengo la carga de formulario cuando la hoja de cálculo de Excel se abre, y oculta Excel. Quiero salir de Excel una vez que el formulario está cerrado, o al menos mostrar Excel nuevamente para que el usuario pueda salir de él manualmente)

Al mirar las propiedades del formulario, la propiedad Descargar no está presente, ni puedo descubrir cómo hacer una función que se ejecuta cuando el formulario está cerrado.

Desafortunadamente, codificar esto en VB no es una opción, debe ser VBA.

Conozco el código necesario para mostrar Excel o salir de inmediato, pero no cómo vincularlo al evento de descarga.

Answer 1

Puede usar Unload Me en VBA para cerrar un formulario. Simplemente ponga el código para cerrar Excel inmediatamente después de eso.

Answer 2

intentar algo como esto: -

Private Sub Form1_FormClosing(sender as Object, e as FormClosingEventArgs) _ 
    Handles Form1.FormClosing 

    //Code you want to execute 

End Sub 

Answer 3

Un colega fue capaz de proporcionar la respuesta, incluyendo ejemplo aquí para todos los demás

Private Sub userform_terminate() 

    'Code goes here 

End Sub 

Answer 4

Puede utilizar QueryClose caso del formulario de usuario como sigue:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 
    If CloseMode = 0 Then 
     ' Your codes 
     ' Tip: If you want to prevent closing UserForm by Close (×) button in the right-top corner of the UserForm, just uncomment the following line: 
     ' Cancel = True 
    End If 
End Sub 

Puede al a fin de utilizar vbFormControlMenu así:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 
    If CloseMode = vbFormControlMenu Then 
     'Your code goes here 
    End If 
End Sub 

Answer 5

Private Sub Form_Unload(Cancel As Integer) 
    Dim msgRes As VbMsgBoxResult 
    msgRes = MsgBox("Exit form ?", vbYesNo) 
    If msgRes = vbYes Then 
     'optional code 
    ElseIf msgRes = vbNo Then 
     Cancel = True 
    End If 
End Sub 

Answer 6

pude evitar que la forma se cierre cuando el botón X era clic utilizando los siguientes:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 
    Cancel = MsgBox("Please confirm cancellation", vbOKCancel + vbQuestion) = vbCancel 
End Sub