Есть более простые способы, чем профайлер и ЦУП ?

пытаешься заблокировать - тебе возвращает кто блокирует

Заблокировать() в попытке

(2) Хорошая попытка, но нет.

Функция ВыполнитьПопыткуБлокировки(Ссылка) Экспорт
    СтруктураВозврата=Новый Структура;
    СтруктураВозврата.Вставить("ОписаниеОшибки","");
    СтруктураВозврата.Вставить("Результат",Ложь);
    Попытка
        ЗаблокироватьДанныеДляРедактирования(Ссылка);
        СтруктураВозврата.Вставить("Результат",Истина);
    Исключение
        ОписаниеОшибки = НСтр("ru='Не удалось заблокировать для изменения %Элемент%. %ОписаниеОшибки%'");
        ОписаниеОшибки = СтрЗаменить(ОписаниеОшибки, "%Элемент%",        Ссылка);
        ОписаниеОшибки = СтрЗаменить(ОписаниеОшибки, "%ОписаниеОшибки%", КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
        СтруктураВозврата.Вставить("ОписаниеОшибки",ОписаниеОшибки);
    КонецПопытки;
    
    Возврат СтруктураВозврата;    
КонецФункции

(4) А разблокировать не надо?

(5) Ну там же написано в названии процедуры, что она делает.

(3) Если объект уже получен / прочитан в память, то работает на ура