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 vote189 views1 answer
How to get the value of optionbutton in vba
VBA
0 vote182 views1 answer
Excel vba copy entire sheet paste values
VBA
0 vote179 views1 answer
Excel named range sum
VBA
0 vote166 views1 answer
Docker vboxmanage not found
VBA
0 vote178 views1 answer
System.InvalidOperationException: 'Row associated with the currency manager's position cannot be made invisible.
VBA
0 vote179 views4 answers
How to continue formula in below line in vba code
VBA
0 vote176 views1 answer
Find days in month vba
VBA
0 vote184 views1 answer
Xlbycolumns is not declared
VBA
0 vote180 views1 answer
Excel vba automatic calculation
VBA
0 vote136 views1 answer
Vbide vbproject reference
VBA