protection de feuille

[heather]

bonjour à tous

je souhaite proteger toutes les feuilles d'un classeur en même temps sans proteger le classeur lui même

merci pour votre aide

 

[Jacques87]

Bonjour

Voici le code d'une macro qui permettra de protéger toutes les feuilles en même temps avec le mot de passe 'toto':

Sub Proteger_les_feuilles()

Application.ScreenUpdating = False
For P = 1 To Sheets.Count
Sheets(P).Activate
ActiveSheet.Protect password:='toto'
Next P
End Sub

et celle qui permet de déprotéger avec le même mot de passe

Sub Deproteger_les_feuilles()
Application.ScreenUpdating = False
For P = 1 To Sheets.Count
Sheets(P).Activate
Range('A1').Select
ActiveSheet.Unprotect password:='toto'
Next P
End Sub

Bon courage

 

[heather]

un grand merci pour ton aide