protection partielle de plusieurs feuilles

monac à dit:

bonjour,

Je cherche une solution pour faire une protection partielle de plusieurs feuilles dans un classeur (toutes en même temps) par une macro

dans un premier temps j'ai

Code:

Sub protection()
Dim i As Long
   For i = 1 To Worksheets.Count
     Worksheets(i).Protect Password:="titi", contents:=True
   Next i
End Sub

Mais j'aimerai que mon utilisateur puisse encore modifier la couleur de la cellule ou masquer une ligne. en faisant ça plus rien n'est modifiable.
Je sais qu'en le faisant à la main il suffit de cocher les cases mais en VB ?

en vous remerciant

Cliquez pour agrandir...