lockcellswithformulas

'*******************************************************************************
' Locks all cells with formulas
'
'                           ~ AJ Javadi ~
'*******************************************************************************


Sub LockCellsWithFormulas()

With ActiveSheet

    .Unprotect

    .Cells.Locked = False

    .Cells.SpecialCells(xlCellTypeFormulas).Locked = True

    .Protect AllowDeletingRows:=True

End With

End Sub