7.7 Карточка счета

Вот так:

Код:

Процедура ПриВыбореСчета()
Если ИмяПользователя()="ВасяПупкин" Тогда
Если Счет<>СчетПоКоду("62") Тогда
Преудпреждение("Вам нельзя выбирать счет кроме 62");
Счет=СчетПоКоду("62");
КонецЕсли;
КонецЕсли;
КонецЕсли;
.....
КонецПроцедуры

или так

Код:

Процедура ПриОткрытии()
Если ИмяПользователя()="ВасяПупкин" Тогда
Счет=СчетПоКоду("62");
ПриВыбореСчета();
Форма.Счет.Доступность(0);
КонецЕсли;
.....
КонецПроцедуры

В 7.7. не так просто, но возможно. Тем более что справочник этот как правило небольшой.
В процедуре ПриОткрытии используйте вызов ИспользоватьСписокЭлементов (список заполняется с учетом набора прав)

Да в модуле формы списка справочника

Как в том анекдоте про Чапаева.. "Я все могу, Петька"

А сами не хотите попробовать? Ведь иначе ничему не научитесь....
Постоянно за вас другие думать будут. А вдруг случиться так что в один прекрасный
день интернета под рукой не окажется - что будите делать?

И научиться не хотите?

Код:

Процедура ПриОткрытии()
Если ИмяПользователя()<> "Администратор" Тогда
//Для начала нам нужно заполнить список значений элементами не 
//принадлежащими указанной группе.
Сп=СоздатьОбъект("СписокЗначений");
Спр=СоздатьОбъект("Справочник.Склады");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 Цикл
Если Спр.ТекущийЭлемент().ПринадлежитГруппе(Константа.ГруппаЗапрета)=1 Тогда
Сп.ДобавитьЗначение(Спр.ТекущийЭлемент());
КонецЕсли; 
//где Константа.ГруппаЗапрета - это константа, содержащая группу запрета
КонецЦикла;
ИспользоватьСписокЭлементов(Сп);
КонецЕсли;
....
КонецПроцедуры

У вас опечатка. Вместо

Код:

Пока СпроПолучитьЭлемент()=1 Тогда

надо

Код:

Пока Спр.ПолучитьЭлемент()=1 Тогда

Код:

Процедура ПриОткрытии()
Если ИмяПользователя()<> "Администратор" Тогда
//Для начала нам нужно заполнить список значений элементами не 
//принадлежащими указанной группе.
Сп=СоздатьОбъект("СписокЗначений");
Спр=СоздатьОбъект("Справочник.Склады");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 Цикл
Если Спр.ТекущийЭлемент().ПринадлежитГруппе(Константа.ГруппаЗапрета)=1 Тогда
Сп.ДобавитьЗначение(Спр.ТекущийЭлемент());
КонецЕсли; 
//где Константа.ГруппаЗапрета - это константа, содержащая группу запрета
КонецЦикла;
ИспользоватьСписокЭлементов(Сп);
КонецЕсли;
....
КонецПроцедуры

Не нужно тупо копировать. Включайте мозг.
ГруппаЗапрета это константа которую необходимо добавить в конфигураторе

Измените условие наоборот

Код:

Если Спр.ТекущийЭлемент().ПринадлежитГруппе(Константа.ГруппаЗапрета)=0 Тогда