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

0 vote191 views1 answer
Putting marquee in vb.net
VBA
0 vote144 views1 answer
How to make a if statement with vbs
VBA
1 vote184 views1 answer
Excel vba hide zero values
VBA
0 vote250 views2 answers
Excel vba store array and write to sheet
VBA
0 vote218 views1 answer
Excel vba first column in range
VBA
0 vote194 views1 answer
Internet explorer reference vba
VBA
0 vote211 views1 answer
Find database connection string vb
VBA
0 vote211 views1 answer
Vba nested dictionary
VBA
1 vote187 views1 answer
Excel vba first and last row and column in range
VBA
2 votes191 views1 answer
Excel vba check if key is in collection
VBA