Игнорирование клавиши Delete

[fishh]

Help me!!!
Мне нужно, чтобы значение в текущей ячейки нельзя было удалить. Т.е., нажимая на клавиши Delete or Backspace никаких действий не происходило.

Заранее, большое спасибо.

[uhm]

На всякий случай: что такое защита ячеек, знаешь? Если нет, см. хелп по Экселю.

[fishh]

Чтобы защитить ячейку, нужно защитить лист. А этого мне совсем не нужно. Может быть есть какие-нибудь другие варианты. Например, отслеживать нажатие клавиши на ячеку. Или еще что-нибудь.

[alibek]

Именно это тебе и нужно, защитить лист.

[fishh]

Мне нужно, чтобы с клавиатуры редактирование ячеек (столбца) не происходило. Значения у меня вводятся в данный столбец через TextBox. Другие же ячейки не защищены и не надо.

[GSerg]

Выдели лист.
Сними защиту с ячеек.
Выдели столбец.
Поставь защиту ячеек.
Защити лист.

[fishh]

Я попробовала сделать так как сказал GSerg. Но когда я хочу изменить содержание защищаемой ячейки через TextBox, происходит ошибка.

[fishh]

Еще я попробовала сделать так:
меня как бы это устраивает, то что мне надо выполняется (не удаляется содержимое ячейки при нажатии на кнопки Del и Backspace), но первое событие зацикливается, т.к. постоянно происходит изменение ячейки. Как это обойти? или может, есть какие нибудь другие варианты?

Private Sub Worksheet_Change(ByVal Target As Range)
Cells(num1, numA).Value = nnn
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
numA = Target.Column
num1 = Target.Row
nnn = Cells(num1, numA).Value
End Sub

[GSerg]

Я попробовала сделать так как сказал GSerg. Но когда я хочу изменить содержание защищаемой ячейки через TextBox, происходит ошибка.

Используй метод Protect, чтобы защитить лист от пользователя, но не от макроса.

[fishh]

Я сделала так:
ActiveSheet.Protect UserInterfaceOnly:=True
Все получилось. Большое спасибо всем кто помог мне, а особенно GSerg.