how do i restrict cells to not accept formulas?

  • Thread starter Thread starter John
  • Start date Start date
Right click sheet tab>view code insert this>you may want to restrict the
area??

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.HasFormula = True Then Target = ""
End Sub
or
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.HasFormula = True Then
MsgBox "No formulas allowed"
Target = ""
End If
End Sub
 
Or this to convert their formula to a value

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.HasFormula = True Then
Target.Value = Target
msgbox "Your formula has been converted to a value"
End If
End Sub
 
Well, I guess you could use Data Validation. Data > Validation > Custom > in
the rectangle, put this: =$C$1.

In Cell C1, enter this: <>=

Try that and see how you get along.

HTH,
Ryan---
 
Back
Top