Microsoft 365 Copyright ineffaçable

  • Initiateur de la discussion Initiateur de la discussion jalou
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jalou

XLDnaute Nouveau
Bonjour à tous,
Ma fille a créé un fichier EXCEL pour utilisation par ses collègues - Elle souhaiterait que ce fichier, utilisé par tous, fait apparaître le nom de son créateur (elle-même) de façon ineffaçable, même s'il a été par la suite modifié.
Du style "fichier créer par Justine - Le 01/01/2026" de façon définitive.
Peu importe qu'on puisse lire après "Modifié par Victor le 02/02/2026" si on peut continuer a lire la paternité du fichier.
Merci de me donner quelques pistes.
J
 
Re
Oui effectivement le le mot de passe VBAProjet est bien changer mais n'empêche l'accès à ça:
VB:
Option Explicit

Private Sub Workbook_Open()
Dim w As Worksheet
If Workbooks.Count > 1 Then Workbook_Deactivate
Me.Unprotect "12345678987654321!Ge"
For Each w In Worksheets
    w.Visible = xlSheetVisible
Next w
Sheets(1).Visible = xlSheetVeryHidden
Me.Protect "12345678987654321!Ge"
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub

Private Sub Workbook_Deactivate()
Static flag As Boolean
If flag Then Exit Sub
Dim i%
Application.ScreenUpdating = False
Me.Unprotect "12345678987654321!Ge"
Me.Sheets(1).Visible = xlSheetVisible
For i = 2 To Sheets.Count
    Me.Sheets(i).Visible = xlSheetVeryHidden
Next i
Me.Protect "12345678987654321!Ge"
Me.Save
If Workbooks.Count = 1 Then Application.Quit Else flag = True: Me.Close
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
Réponses
5
Affichages
2 K
G
Réponses
1
Affichages
1 K
P
Réponses
1
Affichages
1 K
P
A
Réponses
3
Affichages
2 K
A
R
Réponses
2
Affichages
1 K
ryan-571
R
I
Réponses
5
Affichages
2 K
I
Retour