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 vote168 views1 answer
Dynamic array vba
VBA
0 vote162 views1 answer
Test if form is open vb
VBA
0 vote173 views1 answer
Worksheet.pastespecial textbox
VBA
0 vote170 views1 answer
Excel vba first working day month
VBA
0 vote220 views1 answer
Vba excel do not recalculate before save
VBA
0 vote172 views2 answers
How to update date and time automatically once id is entered in excel vba
VBA
0 vote163 views1 answer
Vb net show lines for all axis labels in chart
VBA
1 vote154 views1 answer
Vba compile error object required
VBA
1 vote173 views2 answers
Vba string length
VBA
2 votes164 views1 answer
Excel vba extract file name
VBA