XL 2016 Question sur les propriétés d'un fichier Excel

[Nadine2021]

Bonjour,

J'ai crée sur Excel un outil solide pour la gestion des rdvs et je l'ai partagé avec d'autres directions, j'ai remarqué qu'ils ont pu changer l'auteur.

Sur un autre fichier Excel que j'ai crée avec des macros et un Userform, j'ai pu écrire mon nom et mon adresse courriel et mettre un code pour les macro, donc la modification est impossible., mais le fichier en question contient beaucoup de formules sans macro ou Userform.

Y'a t'il un moyen de conserver l'auteur du fichier,

Merci beaucoup pour votre aide

 

[Phil69970]

Bonjour Nadine

Tu peux le faire par macro sur la fermeture et/ou l'ouverture du fichier

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.BuiltinDocumentProperties("Author").Value = "toto"
End Sub

Private Sub Workbook_Open()
ThisWorkbook.BuiltinDocumentProperties("Author").Value = "toto"
End Sub

@Phil69970

 

[Nadine2021]

Bonjour,

Merci beaucoup pour cette solution,

Mais quand j'ai essayé, il faut sauvegarder le fichier pour faire apparaitre le nom, et activer le contenu, on peut sauvegarder sans activer le contenu et dans ce cas la macro ne s'exécute pas.

Merci d'avance pour votre aide

 

[Phil69970]

Re

Soit tu le mets à l'ouverture du fichier

Private Sub Workbook_Open()
ThisWorkbook.BuiltinDocumentProperties("Author").Value = "toto"
End Sub

Soit tu le le mets à la fermeture du fichier

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.BuiltinDocumentProperties("Author").Value = "toto"
End Sub

Soit tu fais les 2 à l'ouverture ET à la fermeture du fichier

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.BuiltinDocumentProperties("Author").Value = "toto"
End Sub

Private Sub Workbook_Open()
ThisWorkbook.BuiltinDocumentProperties("Author").Value = "toto"
End Sub

Dans tous les cas il faudra bien enregistrer le fichier à un moment ou à un autre et si tu ouvres le fichier sans activer les macros alors si tu as des macros dans ton fichier elle ne fonctionnera pas et le fichier sera pas beaucoup fonctionnel.

@Phil69970

 

[Nadine2021]

C'est parfait,

Un grand merci