Protection feuilles excel avec mot de passe

Bobix -  
Patrice33740 Messages postés 8931 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,

Je suis nouveau sur le site, donc je ne sais pas encore bien comment ça marche.
Je cherche à protéger en même temps toutes mes feuilles excel avec un mot de passe, mot de passe que j'aimerais à avoir entrer une seule fois.

Voila le code que j'utilise :

Sub Protection()

For i = 1 To 8 (j'ai 8 feuilles)
Worksheets(i).Activate
ActiveSheet.Protect Password:="toto", DrawingObjects:=False, Contents:=True, Scenarios:=False

Next i

End Sub

Sub Déprotection()

For i = 1 To 8
Worksheets(i).Activate
ActiveSheet.Unprotect
Next i

End Sub

Le souci, c'est que je dois entrer le code "toto" pour chaque feuille quand je retire la protection, donc si quelqu'un peut m'aider...
A voir également:

1 réponse

Patrice33740 Messages postés 8931 Date d'inscription   Statut Membre Dernière intervention   1 782
 
Remplace :

ActiveSheet.Unprotect

Par :

ActiveSheet.Unprotect Password:="toto"

Cordialement
0
Bobix
 
Merci Patrice,

mais du coup, il ne me demande plus le code, ce qui est un probleme...
0
Patrice33740 Messages postés 8931 Date d'inscription   Statut Membre Dernière intervention   1 782
 
Si tu veux saisir le code, ajoute un InputBox avant la sauvegarde
0