Est ce qu'il y aurait un moyen de protéger toutes les feuilles d'un classeur excel (500 feuilles) toutes modif impossible sauf sur le première feuilles sans pour autant protéger feuille par feuille ??
Sub ProtégerFeuilles()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name <> "Feuil1" Then
sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Next sh
End Sub
