Запрет ввода данных в ячейку

[A-Lex-Is]

Доброго времени суток! Стоит боевая задача: в столбце B надо запретить ввод данных в ячейку любым способом (ввод с клавиатуры, вставка из буфера, перетаскивание), если не заполнена рядом стоящая ячейка в столбце A. Как это сделать?

[Serge 007]

Сообщение от A-Lex-Is

Доброго времени суток!
...в столбце B надо запретить ввод данных в ячейку любым способом, если не заполнена рядом стоящая ячейка в столбце A...
Как это сделать?

Здравствуйте.
Никак.
Проверка данных не спасает от копирования, блокировка ячеек при защите листа не даст ввести данные даже при заполненном столбце А, запрещающий макрос легко отключить поставив высокий уровень безопасности или применить разблокирующий макрос.
Других вариантов нет...

[R Dmitry]

Сообщение от A-Lex-Is

Доброго времени суток! Стоит боевая задача: в столбце B надо запретить ввод данных в ячейку любым способом (ввод с клавиатуры, вставка из буфера, перетаскивание), если не заполнена рядом стоящая ячейка в столбце A. Как это сделать?

Serge 007 прав. если устроит вас это сделать макросом с полуфункцианальностью?

[nilem]

Так срабатывает, если пытаться выделять по одной ячейке

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
    If IsEmpty(ActiveCell.Previous) Then ActiveCell.Previous.Select
End If
End Sub

[A-Lex-Is]

Сообщение от R Dmitry

Serge 007 прав. если устроит вас это сделать макросом с полуфункцианальностью?

Доброго времени суток! Пользователь в программировании не разбирается. Макрос вполне подойдет!