Exécuter un programme avant la fermeture du fichier

Bonsoir le Forum,

J'ai écris un petit programme qui quand l'on appuie sur la croix pour fermer Excel, alors il demande si l'utilisateur veut se déconnecter. Le problème c'est que quand j'appuie sur oui, alors il n'exécute pas le code, il n'y a aucun message d'erreur pourtant. J'ai l'impression qu'il na pas le temps d'exécuter le code, merci pour votre aide.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("login").Visible = True Then

Else
  If MsgBox("Voulez-vous vous déconnecter?", vbYesNo + vbQuestion, "Déconnexion") = vbOK Then
    Sheets("login").Visible = True
    Sheets("content").Visible = 2
    Sheets("members").Visible = 2
    Sheets("scan").Visible = 2
    Sheets("BaseDeDonnées").Visible = 2
    Sheets("CodeBarre").Visible = 2
    Sheets("BonDeLivraison").Visible = 2
    Sheets("BonDeCommande").Visible = 2
    Sheets("HistoriqueLivrComm").Visible = 2
    Sheets("BDDClients").Visible = 2
    Sheets("LISTES").Visible = 2

    Sheets("login").Activate
    Else
  End If
End If
End Sub

Cordialement.

Bonsoir,

MsgBox "VbYesNo" ne peut être "VbOk"...

"VbYes", peut-être?

Bonsoir cousin,

C'est exactement ça... merci.