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