Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Блокировка ячеек после редактирования, Помогите решить проблему с бейсиком
 
Добрый день коллеги. По работе столкнулся с необходимостью регистрирования согласованной себестоимости материалов, для дальнейшей проверки с фактической закупкой, что бы предотвратить всякого рода откаты.

Есть реестр , который лежит на общем сетевом диске и пользоваться им могут все снабженцы.
Однако пару раз находил случаи фальсификации данных после оприходывания сырья на склад.
Для предотвращения данной проблемы решил ограничить доступ к редактированию. Нашел здесь старую тему где проблема решается через бейсик такой командой
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
ActiveSheet.Unprotect
Target.Locked = True
ActiveSheet.Protect  Password:=123
End Sub

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

Идеальным вариантом, была бы блокировка строк, где Дата согласования<Сегодня , т.к. оприходывание день в день обычно не происходит.
Я в макросах не соображаю ничего к сожалению. Очень надеюсь на вашу помощь!!  
Изменено: moestrokir - 10.12.2015 13:11:34
Страницы: 1
Наверх