Вы можете сделать это, если поместите количество раз, когда эта ячейка была изменена, в ячейку (например, «A1» в следующем фрагменте кода):
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 5 And Target.Column = 5 Then
Range("A1").Value = Range("A1").Value + 1
End If
If Range("A1").Value = 50000 Then
MsgBox ("Cell E5 has been changed 50000 times")
Range("A1").Value = 0
End If
End Sub
Событие Worksheet_Change запускается каждый раз, когда что-то меняется в вашем листе. Выбрав целевой объект «E5» (номер строки и столбца - 5), вы уверены, что проверяете правильную ячейку.
В случае, если ваш вопрос другой («Что делать, если кто-то помещает значение в ячейка больше 5000 "), тогда все становится еще проще (не нужно ничего помещать в ячейку" A1 "для начала), а что касается кода:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 5 And Target.Column = 5 And Target.Value >= 50000 Then
MsgBox ("The value you're trying to enter in cell E5 is too large")
End If
End Sub