Suppresion message avant enregistrement

Bonjour,

Je cherche un moyen d'enlever le message d'avertissement qui s'affiche automatiquement pour la sauvegarde.

Pour le moment j'ai ça comme code dans la partie "This Worbook"

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

Mais la problème c'est que ça m'affiche quand même le message.

Une idée .

Merci d'avance

Bonjour,

S'il s'agit de ne pas afficher le message qui demande de confirmer si les modifications apportées au classeur doivent être enregistrées, il suffit de préciser ce paramètre à la fermeture du classeur

Exemple :

ThisWorkbook.Close SaveChanges:=True

A+

Merci pour la réponse.

Cependant c'est au moment de l'enregistrement automatique toute les 3minutes que ça me le fait et pas que quand je quitte.

C'est un message a propose de la confidentialité des données ActiveX et des macros.

Une piste

A+

Ca ne fonctionne pas.

Bonjour

Dans les options ---> Centre de gestion de la confidentialité

Dans la fenêtre qui apparait clic sur "Paramètres du Centre de gestion de confidentialité.."

Dans la fenêtre qui apparait clic "Option de confidentialité"

Et il faut décocher "Supprimer les informations......"

C'est coché mais ça me fait tjs le message.

Bonjour

Un erreur d'écriture de ta part ou tu as mal lu

Banzai64 a écrit :

Et il faut décocher "Supprimer les informations......"

Autant pour moi j’avais en effet mal lu.

En tout cas merci beaucoup à vous deux ça fonctionne.