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 vote204 views1 answer
Vbnet find highest value in chart
VBA
5 votes209 views1 answer
Excel formula how to create strings containing double quotes
VBA
0 vote205 views2 answers
How to concatenate more than 40 lines in vba
VBA
0 vote234 views1 answer
Vbs run with cscript
VBA
0 vote253 views1 answer
Excel vba delete columns in range
VBA
0 vote216 views1 answer
Send text to clipboard vb.net
VBA
0 vote199 views1 answer
Excel PasteSpecial Format:= can't find the argument
VBA
1 vote202 views2 answers
Vba remove first 2 characters from string
VBA
5 votes214 views1 answer
Excel vba low byte from INTEGER
VBA
0 vote210 views1 answer
Excel vba first working day month
VBA