Добрый день коллеги. По работе столкнулся с необходимостью регистрирования согласованной себестоимости материалов, для дальнейшей проверки с фактической закупкой, что бы предотвратить всякого рода откаты.
Есть реестр , который лежит на общем сетевом диске и пользоваться им могут все снабженцы. Однако пару раз находил случаи фальсификации данных после оприходывания сырья на склад. Для предотвращения данной проблемы решил ограничить доступ к редактированию. Нашел здесь старую тему где проблема решается через бейсик такой командой
Код
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
Но при тестировании, слетает и запрашивает пароль при вводе данных в новые ячейки, а мне нужно что бы просило пароль только для редактирования тех, в которые уже внесены данные.
Идеальным вариантом, была бы блокировка строк, где Дата согласования<Сегодня , т.к. оприходывание день в день обычно не происходит. Я в макросах не соображаю ничего к сожалению. Очень надеюсь на вашу помощь!!