Esegui codice quando il modulo viene chiuso in VBA (Excel 2007)

Question

Vorrei eseguire un codice quando un utente chiude un modulo utilizzando il pulsante x nell'angolo in alto a destra della finestra (Ho il caricamento del modulo quando il foglio di calcolo Excel è aperto, e nasconde Excel. Voglio uscire excel una volta che il modulo è stato chiuso, o almeno mostrare di nuovo Excel così l'utente può uscire manualmente.

Guardando le proprietà del modulo, la proprietà Unload non è presente, né sono in grado di capire come eseguire una funzione che viene eseguita quando il modulo è chiuso.

Sfortunatamente, la codifica in VB non è un'opzione, deve essere VBA.

Sono a conoscenza del codice necessario per mostrare Excel o uscire definitivamente, ma non come legarlo all'evento di scarico.

Answer 1

È possibile utilizzare Unload Me in VBA per chiudere un modulo. Basta inserire il codice per chiudere Excel immediatamente successivo.

Answer 2

provare qualcosa di simile: -

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

    //Code you want to execute 

End Sub 

Answer 3

Un collega è stato in grado di fornire la risposta, tra cui ad esempio qui per tutti gli altri

Private Sub userform_terminate() 

    'Code goes here 

End Sub 

Answer 4

È possibile utilizzare QueryClose evento del form come segue:

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 

Si può al in modo da utilizzare vbFormControlMenu come questo:

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

ero in grado di evitare che il modulo si chiuda quando il pulsante X è stato cliccato utilizzando i seguenti:

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