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 vote257 views1 answer
Make your computer talk vbscript
VBA
0 vote262 views1 answer
Vbnet check if string is only letters
VBA
0 vote186 views1 answer
How to self delete a vbscript file
VBA
0 vote243 views1 answer
Vba is integer
VBA
0 vote232 views1 answer
Excel vba address not absolute
VBA
0 vote226 views1 answer
Putting marquee in vb.net
VBA
0 vote292 views2 answers
Excel vba store array and write to sheet
VBA
1 vote234 views1 answer
Excel vba force recalculation
VBA
0 vote215 views1 answer
Find the name of the last excel sheet vb
VBA
22 votes304 views1 answer
Excelvba check for directory
VBA