разблокирование реквизита в ТЧ

добрый день .такая задача.весь документ надо заблокировать при открытии но в ТЧ открыть две колонки на редактирование .Скидка процентом и скидка суммой.делаю как в коде :разблокирую с начала ТЧ ТоВАРЫ а потом нужны реквизит но ничего не выходит хотя сообщалки отрабатывают

    если ПользователиИнформационнойБазы.ТекущийПользователь().Имя="Админ" Тогда
        //цикл по всем элементам формы и блокировка всех реквизитов кроме....трех
        Для каждого Элемент Из ЭтаФорма.ЭлементыФормы цикл
            Имя_ = Элемент.Имя;
            Если имя_="Товары" Тогда
                Элемент.Доступность= Истина;
                //////////////////////////////////////////////////////////////////////////
                сообщить("тест1");
                Для каждого Элемент2 Из ЭтаФорма.ЭлементыФормы.Товары.Колонки цикл
                    Имя_2 = Элемент2.Имя;
                    Если имя_2="ПроцентСкидкиНаценки" ИЛИ имя_2="СуммаАвтоматическихСкидок" Тогда
                        Элемент2.Доступность= Истина;
                        сообщить("тест2");
                    Иначе
                        Элемент2.Доступность= Ложь;
                    КонецЕсли;
                КонецЦикла;
                /////////////////////////////////////////////////////////////////////////
            Иначе
                Элемент.Доступность= Ложь;
            КонецЕсли;
        КонецЦикла;
    КонецЕсли;