Protection feuilles excel avec mot de passe
Bobix
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 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...
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...
