Как заблокировать ввод данных в ячейки?

[parsn]

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

[Serge 007]

Никак. Только макросом, который будет снимать/ставить защиту при попытке отобразить/скрыть группировку.

[parsn]

В принципе, эта задача решалась здесь в теме http://programmersforum.ru/showthread.php?t=76078
Там предлагался, в частности, следующий код:

Dim ЗапрещённыйДиапазон As Range

Private Sub Worksheet_Activate()
Set ЗапрещённыйДиапазон = [a2, b3:b52,f4:g18] ' здесь можно редактировать список ячеек
Dim cell As Range
For Each cell In ЗапрещённыйДиапазон.Cells: cell.ID = cell.Value: Next cell
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 Then
If Not Intersect(Target, ЗапрещённыйДиапазон) Is Nothing Then
Target.Value = Target.ID
End If
End If
End Sub

У меня этот код выдаёт ошибку.
К тому же при активации листа много времени уходит на сохранение всех значений ячеек запрещённого диапазона (их в таблице несколько тысяч).
А нельзя это сделать проще? При смене активной ячейки (Sub Worksheet_SelectionChange) её значение присваивать какой-нибудь переменной, а при попытке изменения значения активной ячейки (Sub Worksheet_Change) возвращать ей значение той переменной?
В Delphi я бы это сделал на раз, а в VBA не получается ни хрена...

[motorway]

Может, попробовать просто при активации запрещенной ячейки перемещать курсор на другую?

[parsn]

Сообщение от motorway

Может, попробовать просто при активации запрещенной ячейки перемещать курсор на другую?

Другая тоже запрещена. К тому же активация ячеек в этой таблице передаёт в другую таблицу номер активной строки.

А нельзя в VBA как-то задать перехват нажатия клавиш? Мышкой пользователь пусть гуляет свободно, а нажатия на цифры и буквы блокировать?

[parsn]

В принципе, сделал.

Dim sVal As String

Private Sub Worksheet_Activate()
bWrite = False
sVal = ActiveCell.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not bWrite Then Target.Value = sVal
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
bWrite = False
sVal = ActiveCell.Value
End Sub

bWrite - переменная в главном модуле.

Public bWrite As Boolean

Она нужна, чтобы позволить сделать программную запись данных в таблицу из другой таблицы. Когда bWrite = true, запись возможна.

[SAS888]

если просто сделать ячейки защищаемыми, то после защиты листа эту команду (показать - скрыть) использовать нельзя.

Это не так. Посмотрите вложение, в котором диапазон ячеек "A3:A10" защищен от изменений при помощи защиты листа. При этом работает группировка, а также макрос ( в отличии от пользователя) может изменять содержимое защищенных ячеек.

[parsn]

2 SAS888: Спасибо.

Но. Чего бы мне хотелось в идеале.
У таблицы цветом выделены некоторые столбцы. Пользователю я говорю, что вводить данные он может только в ячейки, которые я оставил без цвета. При этом сам пользователь волен закрасить свои ячейки (не закрашенные мной), так что вариант проверки ячеек по цвету тоже не проходит.
Важно то, что я пометил ячейки, в которые пользователь не должен ничего вводить. Если он попытается что-то ввести, то должно появляться окошко с напоминанием о том, что сюда ничего вводить не нужно.
Наверно, это нужно делать при помощи хука, но с хуками я пока не разобрался. Разберусь - напишу.