Option Explicit
Sub ProtectSheet()
Cells.Select
With Selection
.Locked = False
.SpecialCells(xlCellTypeFormulas, 23).Select
.Locked = True
End With
Range("A1").Select
ActiveSheet.Protect "password"
End Sub
Sub UnprotectSheet()
ActiveSheet.Unprotect "password"
End Sub