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 vote221 views1 answer
String contins in vba
VBA
0 vote237 views1 answer
Vba add spaces
VBA
0 vote202 views1 answer
Excel vba arrondir
VBA
1 vote220 views1 answer
Add control vb
VBA
0 vote215 views1 answer
Discern between file and folder given path vb.net
VBA
0 vote227 views1 answer
VB Error Code BC30201
VBA
0 vote218 views1 answer
Hello world vb.net
VBA
5 votes224 views1 answer
Excel vba right word from Long Integer
VBA
0 vote227 views1 answer
Afficher un message d'erreur vba
VBA
1 vote251 views2 answers
Vba find last row in range for certain criteria
VBA