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

[valerij]

Как Запретить ввод данных в определенные ячейки, через защиту яч. не пойдет.??
Есть два варианта:
1. Нечетные(четные) ячейки, пользователь вводит, скажем в А1, а не че не вводится.
2. Смешанные, как четные так и не четные, но программирую эти ячейки, я.

Спасибо.

[EducatedFool]

через защиту яч. не пойдет.??

Это что? Вопрос, или утверждение?

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

[valerij]

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

Это что? Вопрос, или утверждение?.

Игорь ......, еще осталось здороваться подряд...

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

Я же написал, что так не пойдет, мне не надо выскакивающих сообщений,типа ячейка защищена....

[Teslenko_EA]

Здравствуйте valerij.
Если Вам достаточно сохранения значений ячеек, можно просто не дать им измениться:

Dim v1, v2, v3' ,...
Private Sub Worksheet_Activate()
    v1 = [b20]: v2 = [b21]: v3 = [b23]' ,...
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$20" Then
    Target.Value = v1
ElseIf Target.Address = "$B$21" Then
    Target.Value = v2
ElseIf Target.Address = "$B$23" Then
    Target.Value = v3
'ElseIf ...
End If
End Sub

Евгений.
P.S. "Игорь ......, еще осталось здороваться подряд..." - у Вас и не подряд не получается.

[valerij]

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

Если Вам достаточно сохранения значений ячеек,(

Да нет, неужели не понятно пишу:
"Как Запретить ввод данных в определенные ячейки??"
через защиту яч. не пойдет....
Мне не надо, что бы в яч. А1, А3, А5 что либо записали, а только записать мона в А2, А4, А6

[valerij]

Профессора!
Неужели так тяжело ответить или задача сложна??

[EducatedFool]

Неужели так тяжело ответить или задача сложна??

Нет, Валера. Ни то и ни другое.

Вот пример кода, который надо поместить в модуль листа:

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

При попытке изменить содержимое ячеек "ЗапрещённогоДиапазона" значения в этих ячейках будут автоматически восстанавливаться.


PS: А если тебя удивляет отсутствие ответов, так я могу попробовать объяснить, почему так происходит:

1. На помощь уйдёт слишком много времени, поскольку предложенный код ты не сможешь самостоятельно адаптировать под свой файл.
Начнутся бесчисленные вопросы, макрос будет заметно усложняться, и, как потом выяснится, в результате надо будет получить нечто совершенно иное.

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

[valerij]

Фу, думал простейший вопрос..
Вот прикрепил реальный фрагмент, факса, там красные Х кресты, в реали их нет, в эти яч. нельзя вводить ничего, это факс, человек, который вводит данные, порой ошибается и шлепает в яч. где крест, на др. конце принимают бумагу, видя пустые клетки, сами дописывают и получается...., кошмар.

Я делал через защиту яч., тогда выскакивает сообщение, все, человек не знает, что делать, объяснять бесполезно, ноль...., ищет меня....., вообщем еще один, кошмар..

Вот мне и нужно ввел он в яч(там де красный крест), а ни чего и не произошло.

Пробовал, оставлять с крестами, ему помогает, тогда на др. конце проблема, факс приходит черно белый, кресты смазываются или не полностью пропечатываются, там гадают, какое же это ЧИСЛО и лепят наугад.......

[EducatedFool]

Вот тебе твой же файл с защитой листа (сделано за 5 секунд)
http://excelvba.ru/XL_Files/Sample__...9__0-24-34.zip

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

[Teslenko_EA]

Здравствуйте Валерий.
Защита от ошибок пользователей эффективнее не при организации ограничений, а при создании специализированного "инструмента". В Вашем случае это форма ввода, её использование гарантирует корректность ввода и избавит от необходимости "строить защиту", Вы о её создании не думали ?
Евгений.