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 vote153 views1 answer
Winforms dark title bar
VBA
0 vote121 views1 answer
Vbs exec hidden
VBA
0 vote128 views1 answer
Delete rows in excel vba code
VBA
0 vote121 views1 answer
Vba get text file content
VBA
4 votes128 views2 answers
Excel vba last column with data
VBA
2 votes133 views2 answers
Vba code to remove duplicates from a column
VBA
3 votes134 views1 answer
Vba continue for each loop
VBA
0 vote126 views1 answer
Vbnet line chart showing extra space
VBA
0 vote131 views1 answer
Show unix time in vba
VBA
1 vote135 views1 answer
Vba login website
VBA