[COLOR=BLUE]Sub[/COLOR] Protect()
[COLOR=BLUE]With[/COLOR] ActiveSheet
Cells.Select
[COLOR=BLUE]On Error Resume Next[/COLOR]
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Locked = [COLOR=BLUE]True[/COLOR]
Selection.FormulaHidden = [COLOR=BLUE]False[/COLOR]
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
[COLOR=BLUE]False[/COLOR]
ActiveSheet.EnableSelection = xlUnlockedCells
[COLOR=BLUE]End With[/COLOR]
Range("A1").Select
[COLOR=BLUE]End Sub[/COLOR]