Z,Спасибо за совет. Это так сложно, что надо обращаться в раздел "Работа"? Для понимания просто.
Изменений, то реальных нет.  Ведь вставляем то же, что там и стоит. Как сделать, чтобы не вставлялась дата при таких случаях.

Здравствуйте. Попробуйте так:

Работает!
Но только для единичных вставок.
Надо как-то преобразовать макрос, чтобы работало при вставке нескольких ячеек одновременно.
Останавливает макрос и выделяет жёлтым  If val = Target

Итак есть варианта.
1. Любезно предложенный Михаилом Лебедевым

Скрытый текст
Dim val Private Sub Worksheet_Change(ByVal Target As Range) For Each Cell In Target If Not Intersect(Cell, Range("C4:C1000")) Is Nothing Then    If val = Target Then Exit Sub  With Range("E" & Cell.Row)     .Value = Now     .EntireColumn.AutoFit     End With    End If   Next Cell End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range)    val = Target End Sub

Который , как нужно - не меняет дату при вставке того же самого значения, но не работает корректно при вставке нескольких ячеек одновременно(например целого столбца).

И код основанный на подсказках замечательных профессионалов с этого форума в соединении с Sub Worksheet_Changе по вставке "фамилии" в список.

Скрытый текст

Private ByVal Target As Range)   For Each cell In Target   'проходим по всем измененным ячейкам       If Not Intersect(cell, Range("C4:C1000")) Is Nothing Then            With Range("E" & cell.Row)               .Value = Now               .EntireColumn.AutoFit            End With       End If       Next cell Dim lReply As Long      If Target.Cells.Count > 1 Then Exit Sub   If Not Intersect(Target, Range("P2:P4999,Q4:Q4999")) Is Nothing Then     If IsEmpty(Target) Then Exit Sub       If WorksheetFunction.CountIf(Range("Фамилия"), Target) = 0 Then          lReply = MsgBox("Добавить введенное имя " & _                         Target & " в выпадающий список?", vbYesNo + vbQuestion)          If lReply = vbYes Then              Range("Фамилия").Cells(Range("Фамилия").Rows.Count + 1, 1) = Target          End If       End If     End If    For Each cell In Target   'проходим по всем измененным ячейкам       If Not Intersect(cell, Range("C4:C1000")) Is Nothing Then            With Range("E" & cell.Row)               .Value = Now               .EntireColumn.AutoFit            End With       End If       Next cell         End Sub

Который  может менять дату одновременно при вставке нескольких ячеек, но видит ячейку , как изменённую, даже если при вставке вставляется такое же значение, как и было.

Ломаю, ломаю голову, как "объединить коды", чтобы и меняло дату при вставке одновременно нескольких ячеек, и игнорировало бы вставку нового значения, равного предыдущему. Голову сломал, хочеться добиться результата - но не по силам мне(((. Может кто даст заключение, что это невозможнщ, чтобы я плюнул бы уже на эту затею....или обнадёжил?

все возможно при наличии:
1. файла-примера
2. точных инструкций, как система контроля должна отреагировать на определенные действия пользователя
(т.е. банально и стандартно - нужно описание задачи. при наличии описания задачи, возможно, она имеет решение, а пока нет самой задачи - решать нечего и нет смысла надеяться на волшебное возникновение решения)

Это ж надо    Вместо СЕГОДНЯ  можно вставить любой текст,  формулу, ссылку, но нельзя просто вставить нынешнюю ДАТУ и не менять её!   Почему надо что-то изобретать !? Хоть это, может кто  объяснить доступно? Раз нет вариантов, кроме, как писать что-то новое и недоступное пониманию простого пользователя. Ну вот не  вижу в этой задаче каких-то сверхпретензий с извилистыми логическими связями и тупиками. Вижу только несовершенство Excel в данном конкретном случае.  Ну вот хоть "Дату, как текст" можно вставить?
Заранее благодарю.

P.S. Интернет засыпан такими вопросами - решения нет.
Вот люди предлагают создать функцию
Не поможет? Проверяю.

между "нельзя вставить" и "я не знаю как это сделать" - огромная разница, приблизительно такая же, как между
"несовершенством excel" и неумением пользоваться его возможностями
понимаете?
если я не умею пилотировать вертолет, то это не потому, что вертолет ни на что не пригодная машина, а потому что я не умею им управлять!

1.Если в колонке А изменилось одно или несколько значений :
- реакция EXEL:
Вставка текущей даты в соответстующую ячейку ( в том же ряду) колонки С, которая (Дата) меняется только при следующем изменении в соответствующей( из того же ряда) ячейке из колонки А, а не при изменении системного времени на компьютере.
2 Возможен вариант отслеживания не изменений в колонке А, а проверка равенства с соответствующим значением ячейки в колонке В(формула зависящая от А)
То есть, ЕСЛИ(A=B):
- реакция EXEL:
Вставка текущей даты в соответствующую ячейку ( в том  же ряду) колонки С, которая (Дата) меняется только   при потере равенства A=B?  а не при изменении системного времени на компьютере.

см. вложение

Так я не за ответ вообще. Спасибо ему( тестирую!) и Вам за участие. А за ответ на конкретный вопрос - Есть ли возможность в Excel заменить СЕГОДНЯ() на несменяемую дату CTRL + ; ?

Ігор Гончаренко,Тестирую, спасибо.

1. Некорректно код реагирует на вставку или ввод такого же значения в ячейку столбца А , какое там и было.
Было 4 - вставили 4 - дата поменялась, а это неправильно для поставленной задачи.

Ваше понимание о том, что такое "изменилось значение", отличается от принятого в Excel понимания события "изменилось значение"описываете ТОЧНЫЕ инструкции и, возможно, Вам помогут это сделать (если кому-то будет еще интересно возвращаться в тему, в которой уже 25 сообщений, а все еще идет процесс постановки задачи)

см.вложение

Спасибо. В файле примере работает!
. Будем тестить в оригинале. Как я уже говорил там уже есть Worksheet_Change.
Надо смотреть, не будет ли конфликтов.