Protection

[criscris11]

Bonsoir le forum,
Y a t'il un moyen de protéger toutes les feuilles d'un classeur d'un seul coup avec le même mot de passe par ex 'toto' par macro et inversement de déprotéger toutes les feuilles d'un seul coup ? J'ai essayé de sélectionner toutes les feuilles d'un coup mais l'option 'protéger la feuille' est grisée c'est à dire pas disponible.
Merci et bonne soirée à tous.

 

[Jacky]

Voici une macro qui devrait t'aider

Application.ScreenUpdating = False
For P = 1 To Sheets.Count
Sheets(P).Activate
Range('A1').Select
ActiveSheet.Protect password:='toto'
Next P
Application.ScreenUpdating = True

bonne soirée

 

[criscris11]

Bonjour Jacky,
Merci pour ton code cà marche nickel.
@+.