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 vote129 views1 answer
How to do error handling in access vba
VBA
3 votes150 views1 answer
Vba http request json
VBA
0 vote142 views1 answer
Vbscript check if string is empty
VBA
0 vote158 views1 answer
Vbscript check if string contains
VBA
2 votes141 views1 answer
Excel vba check if key is in collection
VBA
0 vote142 views1 answer
Vba extract filename from path
VBA
0 vote130 views1 answer
Le contrôle SpinButton (Toupie)
VBA
4 votes136 views1 answer
Excel vba determine number of elements in an array
VBA
0 vote154 views1 answer
Vba min
VBA
1 vote151 views1 answer
Find and replace textbox
VBA