Tu mettras le bon mot de passe à la place de "motdepasse" dans la procédure DernierEnreg (Module1).
Cette procédure est déclenchée à l'ouverture du classeur, et 5 secondes après chaque enregistrement.
Sub DernierEnreg()
Dim denr
denr = ThisWorkbook.BuiltinDocumentProperties("Last save time")
denr = "Dernière modification :" & Chr(10) & "le " & Format(denr, "dd/mm/yyyy") _
& " à " & Format(denr, "hh:mm")
With Worksheets("Accueil")
.Unprotect "motdepasse"
.Shapes("ZoneTexte 9").TextFrame.Characters.Text = denr
.Protect "motdepasse"
End With
ThisWorkbook.Saved = True
End Sub
La dernière ligne est destinée à ce que cette opération ne provoque pas le message "Voulez-vous enregistrer..." si on ferme après ouverture ou après un enregistrement sans rien faire.
Cordialement.