Protection workbook

Bonjour le forum,

Je souhaite modifier le code suivant pour protéger mais permettre la modification de format des cellules.

Merci pour toute aide,

Vincent

Private Sub Workbook_Open()

For i = 1 To Worksheets.Count
Worksheets(i).Protect Password:="mdpmdp", UserInterfaceOnly:=True
Next

 With Application
    .Calculation = xlAutomatic
    .MaxChange = 0.001
  End With
  ActiveWorkbook.PrecisionAsDisplayed = False
 On Error GoTo Sortie
 Exit Sub
Sortie:

End Sub

Bonjour,

A adapter.

Cdlt

DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True

Merci !

Re,

Penses à clore le sujet.

Merci