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 vote323 views1 answer
Vb.net change cursor to wait
VBA
0 vote322 views1 answer
Label de tableau dans des label.text en VBA
VBA
0 vote333 views2 answers
Vba remove line breaks
VBA
0 vote471 views1 answer
Vba array of integers
VBA
1 vote343 views1 answer
Vba optional
VBA
0 vote295 views1 answer
Excel vba concatenate range
VBA
3 votes322 views1 answer
Excel vba read registry key value
VBA
0 vote339 views1 answer
Send text to clipboard vb.net
VBA
0 vote333 views2 answers
Do until loop vba
VBA
0 vote316 views1 answer
Vbnet dynamically change excel sheet name
VBA