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 vote334 views1 answer
Reference to a non-shared member requires an object reference
VBA
-1 vote340 views1 answer
How save excel through visual basic
VBA
0 vote332 views1 answer
VBA OR vb6 find OR replace string from the end
VBA
0 vote342 views2 answers
S yyyy-MM-dd em vb net
VBA
1 vote308 views1 answer
If inputbox cancel vba
VBA
0 vote361 views1 answer
Vbs run with cscript
VBA
0 vote305 views1 answer
Excel vba extract year
VBA
1 vote327 views1 answer
Vba optional
VBA
1 vote316 views1 answer
S yyyy-MM-dd HH:mm:ss Short Date Local
VBA
0 vote303 views1 answer
Discern between file and folder given path vb.net
VBA