Exécuter du code lorsque le formulaire est fermé dans VBA (Excel 2007)

Je voudrais exécuter du code lorsqu'un utilisateur ferme un formulaire à l'aide du bouton x dans le coin supérieur droit de la fenêtre (j'ai le formulaire de charge lorsque la feuille de calcul excel est ouvert, et il se cache Excel. Je veux quitter excel une fois que le formulaire est fermé, ou au moins, d'excel, de nouveau, de sorte que l'utilisateur peut quitter manuellement)

En regardant les propriétés du formulaire, de le Décharger de la propriété n'est pas présent, je ne suis pas en mesure de comprendre comment faire une fonction qui s'exécute lorsque le formulaire est fermé.

Malheureusement, ce codage en VB n'est pas une option, il doit être VBA.

Je suis conscient du code nécessaire pour afficher Excel ou de quitter purement et simplement, tout simplement pas comment l'attacher à l'événement unload.

source d'informationauteur Pixotic

13

Un collègue a été en mesure de fournir la réponse, y compris des exemples ici pour tout le monde
```
Private Sub userform_terminate()

    'Code goes here

End Sub
```

Vous pouvez utiliser QueryClose événement de l'objet UserForm comme suit:

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

Vous pouvez également utiliser vbFormControlMenu comme ceci:

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

1

Vous pouvez utiliser Unload Me en VBA pour fermer un formulaire. Juste mettre le code pour fermer Excel immédiatement après que.

essayer quelque chose comme cela:-

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

    //Code you want to execute

End Sub

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

J'ai été en mesure d'empêcher l'écran de se fermer lorsque le bouton X de a cliquez sur l'aide de l'suivantes:

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

Vous devez vous connecter pour publier un commentaire.