Bonjour Sylvie40 et ChTi60,
Une variante dans la syntaxe,
Sub DeProtectionFeuilles()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Unprotect
Next i
End Sub
Et l'inverse :
Sub ProtectionFeuilles()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).protect
Next i
End Sub
Cordialement
Bernard
Message édité par: CBernardT, à: 06/07/2005 09:38