Excel protect cells with formulas

' Protects cells containing formulas, with password
' pPwd: password to protect / unprotect
Sub ProtectFormulas(ByRef pRange As Range, ByVal pPwd As String)
    ActiveSheet.Unprotect pPwd
    For Each r In pRange
        r.Locked = IIf(r.HasFormula, True, False)
    Next r
    ActiveSheet.Protect pPwd
End Sub

Sub TestIt()
    ProtectFormulas Range("A1:B4"), "MyPassWord"
End Sub

Similar codes

1 vote135 views1 answer
How to open cmd with vbd
VBA
0 vote187 views1 answer
Excel vba disable mouse click
VBA
1 vote176 views1 answer
Excel vba hide zero values
VBA
0 vote187 views1 answer
Show unix time in vba
VBA
1 vote189 views1 answer
How to check is the value enterd is a number or text in vba
VBA
0 vote200 views1 answer
Vba variable number of arguments
VBA
0 vote147 views10 answers
Vba excel create event log
VBA
0 vote168 views1 answer
Remove frist letter from string vbnet
VBA
3 votes177 views1 answer
Vba folderexists
VBA
18 votes361 views3 answers
Excel-vba make integer
VBA