Программная установка даты запрета

Добрый день! Подскажите пож-та как реализовать функционал. Нужно сделать так что при подключении к базе любого пользователя программно установилась дата запрета редактирования документов на вчерашний день, и так каждый день. Пробовал так
    Попытка
        ДатаУстановки = НачалоДня(ТекущаяДата()) - 86400;
        НаборЗаписей = РегистрыСведений.ГраницыЗапретаИзмененияДанных.СоздатьНаборЗаписей();
        Запись = НаборЗаписей.Добавить();
        Запись.Организация = Справочники.Организации.НайтиПоКоду("000000001");
        Запись.Пользователь =ПараметрыСеанса.ТекущийПользователь;
        Запись.ГраницаЗапретаИзменений = НачалоДня(ДатаУстановки);
        НаборЗаписей.Записать();
        Сообщить("Дата запрета установлена на дату" + ДатаУстановки);
    Исключение
        Сообщить(ОписаниеОшибки());
    КонецПопытки;


Не получилось((
Может кто то делал подобное?