Как запретить изменение ячеек vba excel

Необходимо, чтобы при попытке изменения пользователем одной из ячеек листа, проверялось некоторое условие, и, если результат — FALSE, выводился соответствующий MesageBox, и изменения не происходило.

И еще в догонку. Как сделать, чтобы значение ячеки можно было изменять с помощью макроса, и не мог изменять пользователь?

Здравствуйте, ILY, Вы писали:

Worksheet_Change(ByVal Target As Range) 'где Target и есть изменённая ячейка
if Target.Value = 0 then
msgbox "и шо ты тут творишь ?" :)
end if

а может просто format cells->protection->locked=true потом tools->protection->protect sheet ?

Здравствуйте, ma3ai, Вы писали:

M>[vb]
M>Worksheet_Change(ByVal Target As Range) ‘где Target и есть изменённая ячейка
M>if Target.Value = 0 then
M>msgbox «и шо ты тут творишь ?»
M>end if

Не понял
В этом коде ты проверяешь, если пользователь ввел в ячейку 0, то выводится MesasgeBox, «типа Нельзя 0 вводить». Так?
Ну это понятно, а как вернуть старое значение измененной пользователем ячейки?

Locked программно Excel исправить мне не дал, ну это и понятно, иначе бы вся защит сходила на нет, если бы ее можно было макросом обойти.

Здравствуйте, ILY, Вы писали:

ILY>Здравствуйте, ma3ai, Вы писали:

ILY>Не понял

ILY>В этом коде ты проверяешь, если пользователь ввел в ячейку 0, то выводится MesasgeBox, «типа Нельзя 0 вводить». Так?
ILY>Ну это понятно, а как вернуть старое значение измененной пользователем ячейки?

ILY>Locked программно Excel исправить мне не дал, ну это и понятно, иначе бы вся защит сходила на нет, если бы ее можно было макросом обойти.

Может тогда так:

Application.Undo

Здравствуйте, SiNick, Вы писали:

SN>Может тогда так:

SN>

SN>Application.Undo
SN>

Уже лучше, спасибо. Наверное так и сделаю
Но все-равно как-то коряво. Неужели это не настолько распространенная проблема, чтбы в Visual Basic были средства для ее решения. Скажем, OnChange мог бы передавать также и старое значение измененной ячейки.

Здравствуйте, ILY, Вы писали:

ILY>В этом коде ты проверяешь, если пользователь ввел в ячейку 0, то выводится MesasgeBox, «типа Нельзя 0 вводить». Так?
да
ILY>Ну это понятно, а как вернуть старое значение измененной пользователем ячейки?
тут сложнее
в excel нет нормального(встроенного) способа получитть прежнее значение поэтому придётся изголятся:
навскидку
1. если проверяемых ячеек мало — запомнить все значения, потом восстанавливать
2. следить/проверять предыдущее значение при Worksheet_SelectionChange (гемор ещё тот)
3. заранее установить Validation для нужных ячеек. excel сам будет следить за всем
4. способ application.undo очень даже неплох, но придётся добавить ограничитель чтобы при .undo повторно не срабатывало Worksheet_Change

Public Sub Undo()
    Static IsBusy As Boolean
    If Not IsBusy Then
        IsBusy = True
        Application.Undo
        IsBusy = False
    End If
End Sub