Comment supprimer message avertissement avant enregistrement

Bonjour, j'ai un fichier avec des macro.

Lorsque j'enregistre, j'ai un message d'avertissement concernant la confidentialité. doc ci joint.

Est ce possible de ne plus avoir ce message?

Merci de votre aide.

Cdt

René

capture

Bonjour,

Avec un code du genre ?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   Application.DisplayAlerts = False
End Sub

Puis rétablir avec :

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
   Application.DisplayAlerts = True
End Sub

Ces 2 codes sont à placer dans le module "ThisWorkbook".

Rechercher des sujets similaires à "comment supprimer message avertissement enregistrement"