VBA to Lock Cells With Formulas

In this video I demonstrate how to write a VBA macro that will lock all cells with formulas. I also use an example to show the practical application of it. VBA code below:

Sub LockCellsWithFormulas()
With ActiveSheet
.Unprotect
.Cells.Locked = False
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True
.Protect AllowDeletingRows:=True
End With
End Sub

[MMaarrkkuuSS]

WELL DONE! Awesome! thank you very much.