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 vote167 views1 answer
Excel vba unmerge sheet
VBA
1 vote176 views1 answer
Excel date to unix timestamp
VBA
0 vote171 views1 answer
Windows Forms dark title bar
VBA
1 vote153 views1 answer
Excel format cell as kilowatts
VBA
1 vote174 views1 answer
Vb.net get name by Selection Changed
VBA
1 vote165 views1 answer
How to put a gridpain in a vbox
VBA
0 vote154 views2 answers
Excel vba prevent save
VBA
0 vote166 views1 answer
Nested if else in vb.net
VBA
0 vote181 views1 answer
Find if year is leap year vb
VBA
0 vote109 views1 answer
Excel autofilter vba
VBA