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

5 votes382 views1 answer
Excel vba first byte from INTEGER
VBA
22 votes553 views1 answer
Excelvba check for directory
VBA
0 vote370 views1 answer
Vba remove the first character of string
VBA
0 vote344 views1 answer
Average vba
VBA
0 vote312 views1 answer
Excel vba hide columns
VBA
0 vote326 views1 answer
Vba word open document read only
VBA
0 vote324 views1 answer
Visual stuiod not recognising desgined labels
VBA
1 vote338 views1 answer
S yyyy-MM-dd HH:mm:ss Short Date Local
VBA
0 vote341 views1 answer
Vba get relative cell address
VBA
0 vote346 views1 answer
Find control with name vb
VBA