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

Nadine2021

XLDnaute Nouveau
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

XLDnaute Barbatruc
Bonjour Nadine

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

Code:
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
 

Pièces jointes

  • Nom auteur V1.xlsm
    14 KB · Affichages: 19

Nadine2021

XLDnaute Nouveau
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

XLDnaute Barbatruc
Re

Soit tu le mets à l'ouverture du fichier
VB:
Private Sub Workbook_Open()
ThisWorkbook.BuiltinDocumentProperties("Author").Value = "toto"
End Sub

Soit tu le le mets à la fermeture du fichier
Code:
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
Code:
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
 

Discussions similaires

Réponses
2
Affichages
99

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG