В общем решаю задачку. Открыл синтаксис помощник.

"ЭлементыФормы (FormItems)
Элементы коллекции:
ГруппаФормы, ТаблицаФормы, ПолеФормы, КнопкаФормы
Для объекта доступен обход коллекции посредством оператора Для каждого … Из … Цикл. При обходе выбираются элементы коллекции."

Пробую такой цикл но не пашет.

"{Документ.УстановкаЦен.Форма.ФормаДокумента.Форма(55,30)}: Переменная не определена (ЭлементыФормы)
    Для Каждого ЭлементФормы Из <<?>>ЭлементыФормы Цикл  (Проверка: Тонкий клиент)"

ПочемуЛыжиНеЕдут?

(0)

1. непонятно, в каком контексте выполняется этот код (клиент или сервер)
2. Что такое элементыФормы в твоем коде? Попробуй ЭтаФорма.Элементы или просто Элементы при условии, что работаешь на клиенте.

(0) дык тово, не смазаны лыжи и по гравию не идут
ты отладчиком то посмотри

(1) На клиенте

Потому что правильно Элементы

Для Каждого ЭлементФормы Из Элементы Цикл

(1) Блин хотел перевод строки и отправил.
кароче на клиенте делаю и пробовал ЭтаФорма.Элементы тоже не прокатило.

(4) Синтаксических ошибок не обнаружено!

(6) А чего тогда в (5) не прокатило?
Короче, дело не в лыжах, имхо.

(6) сомневаюсь, что это УФ. Либо в директиве &НаКлиенте опечатка

(7) Для Каждого ЭлементФормы Из Этаформа.Элементы Цикл
не прокатило!
Как ты написал работает. теперь буду разбираться с наличием "Доступность" у элементов и устанавливать как надо эту доступность :)

(8) &НаКлиенте
Процедура УстановитьДоступностьЭлементовФормы(ЗначениеДоступности)
    
    Для Каждого ЭлементФормы Из Элементы Цикл
        
        ЭлементФормы.Доступность = ЗначениеДоступности
                
    КонецЦикла
    
КонецПроцедуры;
//Чтоб не было сомнений

Кстати сначала пробовал
ЭтаФорма.ТолькоПросмотр = Истина
Но нужно дать доступ к одному реквизиту чтоб можно было убрать этот ТолькоПросмотр, Не получилось вот решил перебрать все элементы кроме нужного

(10) А чем не устраивает ТолькоПросмотр ?
Зачем обходить все элементы?

(12) чекбокс отлючить только просмотр недоступен на форме :)

Процедура УстановитьТолькоПросмотрРекурсивно(ЭлементыФормы, ИсключаемыеЭлементы = Неопределено)
    Для Каждого Элемент Из ЭлементыФормы Цикл
        Если ЗначениеЗаполнено(ИсключаемыеЭлементы)
            И ИсключаемыеЭлементы.Найти(Элемент.Имя) <> Неопределено Тогда
            Продолжить;
        КонецЕсли;
        УстановитьТолькоПросмотрЭлементаФормы(Элемент);
        ЭтоГруппа = ТипЗнч(Элемент) = Тип("ГруппаФормы");
        Если ЭтоГруппа Тогда
            УстановитьТолькоПросмотрРекурсивно(Элемент.ПодчиненныеЭлементы, ИсключаемыеЭлементы);
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

Процедура УстановитьТолькоПросмотрЭлементаФормы(Элемент, ИсключаемыеЭлементы = Неопределено)
    
    НеНужноИзменять = ТипЗнч(Элемент) = Тип("ДекорацияФормы") ИЛИ ТипЗнч(Элемент) = Тип("ГруппаФормы") ИЛИ ТипЗнч(Элемент) = Тип("ДополнениеЭлементаФормы");
    Если НеНужноИзменять Тогда
        Возврат;
    КонецЕсли;
    
    Если ЗначениеЗаполнено(ИсключаемыеЭлементы)
        И (ИсключаемыеЭлементы.Найти(Элемент.Имя) <> Неопределено
        ИЛИ ТипЗнч(Элемент.Родитель) <> Тип("ФормаКлиентскогоПриложения")
            И ИсключаемыеЭлементы.Найти(Элемент.Родитель.Имя) <> Неопределено) Тогда
        Возврат;
    КонецЕсли;
    
    УстановитьТолькоПросмотр = НЕ (ТипЗнч(Элемент) = Тип("КнопкаФормы"));
    Попытка
        Если УстановитьТолькоПросмотр Тогда
            Элемент.ТолькоПросмотр = Истина;
        Иначе
            Элемент.Доступность = Ложь;
        КонецЕсли;
    Исключение
        ИОШ = ИнформацияОбОшибке();
    КонецПопытки;
    
КонецПроцедуры

(11) Точнее процедура все либо / либо сделает. А если Админ тогда нужные реквизит разблокирует.

(14) Слишком круто. Так не нужно. ИТОГ:

&НаКлиенте
Процедура УстановитьДоступностьЭлементовФормы(ЗначениеДоступности)
    
    Для Каждого ЭлементФормы Из Элементы Цикл
        
        НеНужноИзменять = (ТипЗнч(ЭлементФормы) = Тип("ДекорацияФормы")) ИЛИ (ТипЗнч(ЭлементФормы) = Тип("ГруппаФормы")) ИЛИ (ТипЗнч(ЭлементФормы) = Тип("ДополнениеЭлементаФормы"));
        
        Если НЕ НеНужноИзменять Тогда
            
            ЭлементФормы.Доступность = ЗначениеДоступности
        КонецЕсли
        
    КонецЦикла
    
КонецПроцедуры;