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

2 votes157 views1 answer
Excel vba check if key is in collection
VBA
0 vote161 views1 answer
Openfiledialog specific folder
VBA
0 vote149 views1 answer
Vba first cell in range
VBA
4 votes158 views1 answer
Vba create directory
VBA
3 votes170 views1 answer
Vba http request json
VBA
8 votes291 views1 answer
Vba make a short integer from two bytes
VBA
0 vote164 views1 answer
Average vba
VBA
0 vote148 views1 answer
Replace spaces with underscores vbnet
VBA
0 vote153 views1 answer
Add Formula to Shape Text in VBA
VBA
0 vote172 views1 answer
Power query M substract minimum value of column -dax
VBA