Bonjour à tous,
Je souhaiterai, sur mon fichier lorsque j'appuie sur la petite croix rouge en haut a droite, faire apparaitre un msgbox avec deux choix:
Oui pour continuer la macro "enregistrement et fermer fichier" ou annuler pour rester sur le fichier pour pouvoir le modifier.
Ce code, je l'ai pris et adapter a mon besoin mais je n'arrive pas a le faire fonctionner.
Je vous remercie d'avance
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
If MsgBox("Voulez-vous sauvegarder et quitter?", vbQuestion + vbYesNoCancel) = vbYes Then
Dim Sh As Object
For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> "Fiche CR A REMPLIR" Then Sh.Visible = False
Next Sh
Me.Save
End If
Application.ScreenUpdating = True
End Sub