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

25 votes236 views2 answers
Excel vba folder exist
VBA
1 vote174 views1 answer
Excel vba first and last row and column in range
VBA
3 votes215 views1 answer
Excel vba make long from two shorts
VBA
1 vote183 views1 answer
Excel vba get ordinal number from cardinal number
VBA
0 vote176 views1 answer
Vba pass named range to function
VBA
-1 vote174 views1 answer
For i in range vba
VBA
1 vote182 views2 answers
Vba remove first 2 characters from string
VBA
3 votes192 views2 answers
Vba active workbook path
VBA
1 vote193 views2 answers
Vba string length
VBA
0 vote180 views1 answer
Hello world vb.net
VBA