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 vote324 views1 answer
Vba foreach 2d array
VBA
0 vote284 views1 answer
Default host vbox address
VBA
1 vote283 views1 answer
Vba delete file
VBA
0 vote291 views1 answer
Vba compare strings
VBA
5 votes327 views1 answer
Excel vba left word from Long Integer
VBA
3 votes293 views2 answers
Vba active workbook path
VBA
0 vote307 views1 answer
Method showalldata of object _worksheet failed vba
VBA
0 vote288 views1 answer
Vbscript check if string is empty
VBA
0 vote295 views1 answer
Excel vba first working day month
VBA
0 vote305 views1 answer
Supprimer la valeur de celule vba
VBA