В модуль листа:
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range) Dim v, cell As Range Set cell = Range("C3") If Not Intersect(Target, cell) Is Nothing Then With Application If .Calculation <> xlCalculationManual Then v = cell.Value .EnableEvents = False .Undo .Calculation = xlCalculationManual cell.Value = v .EnableEvents = True End If End With End If End Sub |
Владимир