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