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 vote290 views1 answer
Excel vba disable alerts
VBA
0 vote318 views1 answer
Average vba
VBA
0 vote298 views1 answer
Vba add month to date
VBA
0 vote277 views1 answer
How to make a if statement with vbs
VBA
0 vote350 views1 answer
(SecurityProtocolType)3072 vb.net
VBA
0 vote379 views1 answer
Excel vba delete columns in range
VBA
7 votes347 views1 answer
Excerl vba array to range
VBA
0 vote296 views1 answer
Vba loop through table
VBA
0 vote354 views1 answer
Filesystemobject vba reference
VBA
0 vote311 views1 answer
Arq linux
VBA