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 vote189 views1 answer
Add rows to datagridview vb.net
VBA
3 votes181 views1 answer
Extract the nth word from a text string
VBA
0 vote174 views2 answers
Excel vba protect cells with formula
VBA
0 vote166 views1 answer
Vba loop through textboxes
VBA
1 vote184 views2 answers
Vba string length
VBA
2 votes198 views2 answers
Excel vba if sunday or staurday
VBA
0 vote135 views1 answer
Vbide vbproject reference
VBA
-1 vote178 views1 answer
Vba code to add new column in table
VBA
1 vote178 views1 answer
How to put a gridpain in a vbox
VBA
1 vote171 views1 answer
How to INPUT text in shape with enter and spacein vba
VBA