excel vba protect cells with formula
' 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 Subexcel vba protect content
'Apply protection on worksheet content (cells with Protected = True)
Sheets("Sheet1").Protect Password:="myPassword", _
DrawingObjects:=False, _
Contents:=True, _
Scenarios:=FalseCopyright © 2021 Codeinu
Forgot your account's password or having trouble logging into your Account? Don't worry, we'll help you to get back your account. Enter your email address and we'll send you a recovery link to reset your password. If you are experiencing problems resetting your password contact us
