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

1 vote150 views1 answer
Close form vba
VBA
0 vote156 views1 answer
Vba shape transparent
VBA
0 vote150 views1 answer
Loop through lines in text file vb net
VBA
4 votes155 views2 answers
Vba array length
VBA
0 vote150 views1 answer
Excel VBA web scraping
VBA
0 vote173 views1 answer
Vba search string position
VBA
0 vote162 views1 answer
Vba array dimensions
VBA
0 vote143 views1 answer
Vba word pdf table to excel
VBA
0 vote164 views1 answer
Vbnet convert charatcer to binary
VBA
0 vote147 views1 answer
Excel vba disable screen update
VBA