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

3 votes232 views1 answer
Vba http request json
VBA
0 vote231 views1 answer
Vba count all row
VBA
1 vote237 views1 answer
Set font for ms chart vb.net
VBA
0 vote293 views1 answer
Application.ExecutablePath VB.NET
VBA
3 votes221 views1 answer
Excel vba last row in range
VBA
0 vote226 views1 answer
Make all controls in an area not visable vb
VBA
0 vote270 views1 answer
Vba excel parser xml
VBA
0 vote215 views1 answer
Vba text to general
VBA
0 vote245 views1 answer
For each item in folder outlook vba
VBA
0 vote219 views1 answer
Vba add spaces
VBA