Macro enregistrer par mot de passe

Poucin -  
 Poucin -
Bonjour,

Je ne sais pas si mon titre est très clair... précisons!

J'ai un classeur excel où les feuilles sont protégées.
Je souhaiterais :
1/ par défaut, bloquer la fonction "enregitrer"
2/ avoir une option "enregistrer" avec un mot de passe.

Je voudrais éviter de passer par la lecture seule qui ralentie le fichier à l'ouverture.

J'espère que c'est plus clair?
Si quelqu'un a une idée, c'est avec plaisir !! :)))

A voir également:

1 réponse

jfqld Messages postés 8725 Date d'inscription   Statut Membre Dernière intervention   126
 
fichier
enregistrer sous
dans la fenetre qui s ouvre en bas à gauche
OUTILS
et options générales

mettre votre mot de passe
0
Poucin
 
Merci mais ce n'est pas ma question puisque j'ai dis "Je voudrais éviter de passer par la lecture seule qui ralentie le fichier à l'ouverture".

J'ai trouvé une autre solution comme je voulais. Ca permet de ne pouvoir enregistrer que si on entre un code.
Pour ceux qui auraient le même problème, voilà la solution que j'ai trouvé :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' Cette macro permet de bloquer l'enregistrement par un mot de passe.
Dim Password
Password = "admin"
a = InputBox("L'enregistrement de ce document est protégé par mot de passe. Veuillez saisir le mot de passe pour enregistrer ou fermer sans enregistrer :", Password)
If a <> Password Then Cancel = True
End Sub
0