Bonjour, Voilà le message que j'ai laissé il y a quelques jours sur votre forum ainsi que la réponse qui m'a été faite.
Je souhaiterais protéger l'ensemble des feuilles de mon fichier avec une sauvegarde automatique à la fermeture de mon fichier.
Puis avoir la possibilité de les déprotéger suivant mes besoins en cours d'utilisation.
Par avance merci pour votre aide
cordialement
mibri
REPONSE
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each sh In Sheets
sh.Protect
Next sh
ThisWorkbook.Save
End Sub
Ce code convient tres bien à ma recherche, cependant, je m'aperçois que n'importe qui peut déprotéger le fichier, la protection étant automatique à la fermeture du fichier, il peut se passer n'importe quoi sur ce fichier.....et je n'y verrais que du feu.
Si je peut à nouveau user de votre temps que faut il ajouter à ce code afin que la fonction "oter la protection" ne puisse se faire qu'à l'aide d'un mot de passe.
par avance je vous remercie pour votre aide
cordialement
mibri