Executer macro à la fermeture d'un UserForm

[Delirium]

Bonsoir à tous.

Voila j'ai un Userform qui comporte un bouton Annuler.

Ce bouton ferme mon Userform et execute quelque de code.

Le problème est que l'utilisateur de mon appli n'est pas obligé de fermer mon UserForm par ce bouton. Il peut utiliser la croix en haut à droite, et la ma macro n'est pas executer.

J'ai tester ce code :

Private Sub UserForm_BeforeClose()
Application.ScreenUpdating = False
    Sheets('Feuil1').Range('A1') = '1'
ActiveSheet.Protect Password:='4444', DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
End Sub

Mais ça doit pas être bon 😛 .

Si quelqu'un connait la solution, merci.

 

[myDearFriend!]

Bonsoir Delirium,

La solution la plus simple il me semble, serait d'interdire à l'utilisateur la fermeture du Userform par la croix :

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

Cordialement,

 

[Delirium]

Bonsoir myDearFriend!
Merci pour ton code.

C'est ce que je cherchais.

A+