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 vote245 views1 answer
Vbs run
VBA
0 vote227 views1 answer
Vba copy paste value only
VBA
6 votes250 views1 answer
Excel vba check if a string only contains alpha characters
VBA
0 vote247 views1 answer
Vba code for cutoff time
VBA
5 votes231 views1 answer
Excel vba how to unit test vba code
VBA
0 vote248 views1 answer
Vb get ip address
VBA
0 vote234 views1 answer
Vbscript check if string contains
VBA
6 votes248 views1 answer
Excel vba check if a string only contains letters
VBA
0 vote233 views1 answer
Excel vba copy entire sheet paste values
VBA
12 votes291 views1 answer
Excel vba write string to text file
VBA