Message à la fermeture du fichier si lecture seule

[Gil_Se]

Bonjour à tous.
Je cherche et je ne trouve pas pas:
Je souhaite, si mon fichier excel a été ouvert en lecture seule, supprimer le message "Voulez vous enregistrer les modifications apportées à..." à la fermeture de celui-ci. (Il est logique que ce message s'affiche car mon fichier contient des liaisons).
Bien sur, si le mot de passe a été saisi à l'ouverture du fichier pour modifier des données, le message doit apparaitre.
D'avance, merci de votre aide.
Gilles

 

[Gelinotte]

Re : Message à la fermeture du fichier si lecture seule

Bonjour,

À inscrire dans ThisWorkbook (en VBE)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   If ThisWorkbook.ReadOnly = True Then ThisWorkbook.Close False
End Sub

G

 

[Gil_Se]

Re : Message à la fermeture du fichier si lecture seule

Bonjour et merci de ta réponse efficace.
Bonne journée.
Gilles

 

[Gelinotte]

Re : Message à la fermeture du fichier si lecture seule

Bonjour,

Bienvenue

G