Sub GPROTECT()
'
' Protection de toutes les feuilles du classeur (quelque soit le nombre)
' Le mot de passe est ici choisi
'
Dim Passe As String
Passe = InputBox(" Le mot de passe ? ", " Protection des feuilles du classeur ", _
"Taper votre mot de passe ici", 100, 50)
If Passe = "" Or Passe = "Taper votre mot de passe ici" Then MsgBox _
"C'est mieux de mettre un mot de passe, ça marche mieux..."
If Passe = "" Or Passe = "Taper votre mot de passe ici" Then Exit Sub
For Each feuille In Sheets
feuille.Protect Password:=Passe, DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowSorting:= _
True, AllowFiltering:=True, AllowUsingPivotTables:=True
feuille.EnableSelection = xlUnlockedCells
Next feuille