How to Lock Cells With Formulas and Protect Sheet using VBA

In this tutorial you will learn how to lock cells with formulas and protect sheet using VBA macro programming in Microsoft Excel

VBA Code Without Password:
'This macro code will lock all the cells with formulas
Sub LockFormulasProtectSheet()
With ActiveSheet
.Unprotect
.Cells.Locked = False
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True
.Protect AllowDeletingRows:=True
End With
MsgBox ("Formulas are locked successfully")
End Sub

VBA Code With Password:
'This macro code will lock all the cells with formulas
Sub LockFormulasProtectSheet()
Dim password As String
password = "Pass123"
With ActiveSheet
.Unprotect password:=password
.Cells.Locked = False
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True
.Protect password:=password, AllowDeletingRows:=True
End With
MsgBox ("Formulas are locked successfully")
End Sub