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 vote196 views1 answer
Vba change named range address
VBA
0 vote197 views1 answer
Vb net check if file exists
VBA
0 vote212 views1 answer
Excel vba Column Name from Column Number
VBA
0 vote214 views1 answer
Vba simple quote
VBA
0 vote202 views1 answer
Vba sheet visible
VBA
0 vote249 views1 answer
Winforms dark title bar
VBA
0 vote201 views1 answer
Vba run command
VBA
5 votes231 views1 answer
Excel vba how to unit test vba code
VBA
0 vote198 views1 answer
Excel vba center userform
VBA
0 vote192 views1 answer
How to make a if statement with vbs
VBA