Сервис - Защита?

С какой же радости?
Работают.

Ну любые, какие вам нужны.
Например, выбор защищенных и незащищенных.
Это неважно, списки всё равно работают. Причём как защищённые списки, так и нет.

Нет, мы поняли в смысле Combo Box. Они так называются.

Если у вас группировка, попробуйте тогда в Workhseet_Change проверять условие и делать Application.Undo.

Если речь просто об отмене ввода, то надо было написать
Если Worksheet_Change была вызвана именно в результате ввода, и если перед этим не успели выполниться другие VBA-команды, меняющие лист, то application.undo откатит ввод.

VladConnОбъяснение в Help:

This method undoes only the last action taken by the user before running the macro, and it must be the first line in the macro

В хэлпе, во избежание длительных и путаных объяснений, просто несколько перестраховались.
Это должна быть первая из строчек, что изменяют состояние, скажем так. Но не обязательно первая строчка тела кода. У меня Undo зарыто в несколько If, и всё прекрасно работает, потому что If не меняют никакой аспект книги.


Вообще, Undo надо, когда вы не знаете, что было в столбце.
Если вы знаете, что должно быть в столбце, вам просто надо это туда записать в Worksheet_Change, не делая Undo.

При этом, разумеется, нужно завести static SelfProtect as boolean, чтобы защитить метод от срабатывания на самом себе. У вас сейчас именно это происходит. Ваше c.Value = " " вызывает событие Change, и метод вызывается снова.

Private Sub Worksheet_Change(ByVal Target As Range)
static seflprotect as boolean
dim c as range

if selfprotect then exit sub

if target.column = 4 then
selfprotect = true

for each c in target.cells
c.value = "x"
next

selfprotect = false
end if
end sub

ДыкВообще, Undo надо, когда вы не знаете, что было в столбце.
Если вы знаете, что должно быть в столбце, вам просто надо это туда записать в Worksheet_Change, не делая Undo.