Если  (ЗначениеЗаполнено(СрУсл))  тогда
       Если (СрУсл < ТекущаяДата())    Тогда
        ОбластьСтрока.ЦветФонаЗаголовков  = Красный;
       КонецЕсли;
       КонецЕсли;
не работает пишет Поле объекта недоступно для записи.

.ЦветФона

= WebЦвета.Красный;

.ЦветФона не работает

(3) как получена ОбластьСтрока ? Это что у тебя ?

Так, например, работает ?

ОбластьСтрока.Область().ЦветФона = WebЦвета.Красный;

так работает

Если  (ЗначениеЗаполнено(СрУсл))  тогда
    Если (СрУсл < ТекущаяДата())    Тогда
        ТабДок.Область(ОблОф.Верх, ОблОф.Лево, ОблОф.Низ, ОблОф.Лево).ЦветФона = WebЦвета.Красный;
        //ТабДок.Область(ОблОф.Верх, ОблОф.Лево, ОблОф.Низ, ОблОф.Лево).ЦветТекста = WebЦвета.АнтикБелый;
    
    иначеесли РД2<=7 тогда    
        ТабДок.Область(ОблОф.Верх, ОблОф.Лево, ОблОф.Низ, ОблОф.Лево).ЦветФона = WebЦвета.БледноБирюзовый;    
        //ТабДок.Область(ОблОф.Верх, ОблОф.Лево, ОблОф.Низ, ОблОф.Лево).ЦветТекста = WebЦвета.АнтикБелый;    
    
    Конецесли;
Конецесли;

СКД юзай