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 vote318 views1 answer
Vba set vs dim
VBA
0 vote399 views1 answer
Priavte sub with multiple handels find sneder
VBA
0 vote358 views1 answer
Find the name of the last excel sheet vb
VBA
4 votes361 views2 answers
Vba create folder if not exist
VBA
0 vote367 views1 answer
Vba code for cutoff time
VBA
1 vote391 views1 answer
Export datagridview to excel vb.net
VBA
0 vote377 views1 answer
Vba add spaces
VBA
1 vote426 views1 answer
Vba login website
VBA
0 vote455 views1 answer
Vba vbcrlf chr
VBA
5 votes409 views1 answer
Excel-vba get integer high byte
VBA