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 vote191 views1 answer
Group controls programmatically vb
VBA
4 votes183 views1 answer
Excel vba how to programmatically remove the marching ants after range copy
VBA
0 vote217 views1 answer
Vba ternary
VBA
22 votes336 views1 answer
Excelvba check for directory
VBA
0 vote178 views1 answer
Vbscript check if string is empty
VBA
0 vote188 views1 answer
Excel vba open browser
VBA
0 vote179 views1 answer
Convert Seconds to HH:MM:SS in VB.Net
VBA
0 vote181 views1 answer
Vba format currency
VBA
0 vote178 views1 answer
Discern between file and folder given path vb.net
VBA
0 vote167 views1 answer
Do while not vb.net
VBA