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 vote148 views1 answer
Vba extract filename from path
VBA
1 vote142 views1 answer
Vba delete array element
VBA
0 vote145 views1 answer
Vba DisplayGridlines
VBA
11 votes284 views1 answer
Excel vba How to URL encode a string
VBA
4 votes148 views1 answer
Vba create directory
VBA
3 votes148 views1 answer
Excel vba last row in range
VBA
0 vote157 views1 answer
Excel run macro every 5 minutes
VBA
22 votes279 views1 answer
Excel vba check if directory exists
VBA
0 vote139 views2 answers
Excel vba copy paste after last row
VBA
0 vote146 views1 answer
Vba sheet visible
VBA