Sub protéger_cellules_formules()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws.UsedRange
With .SpecialCells(xlCellTypeConstants, 23)
.Locked = False
.FormulaHidden = False
End With
End With
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub