Подтягивается при помощи ВПР из другой книги,  так как исходный файл это большая база данных.

Вот пример, нужно когда появляется дата закрашивать изделия, если даты нет, то соответственно ячейка остается без заливки

Файл пока приложить не могу нахожусь далеко от компьютера. Дата просто число месяц год (15.10.2025) подтягивается из другого фала, и вот при появлении даты в ячейке нужно закрасить всю строку.

Добрый всем день! Пытаюсь сделать так что бы строка или определенная ячейка закрашивалась цветом по условию появления даты в другой ячейке. Пытался через условное форматирование но дату он не воспринимается. Может кто знает буду благодарен?

Спасибо большое!  

DenchikZ написал: иногда выдает ошибку Method Unprotect of object _Worksheet failed

Эту ошибку уже выдает, после установки кода по вашей рекомендации. Извиняюсь что сразу не написал об этом. Общий доступ мне нужен что бы несколько людей одновременно работали в документе, как это сделать по другому не знаю. А так как я еще только начинаю познавать VBA у меня возникают такие проблемы.  

А иногда выдает ошибку Method Unprotect of object _Worksheet failed

общий доступ устанавливаю через рецензирование! А ошибку выдает Run-time error 1004 Application-defined or object-defined error

Спасибо за ответ. Но почему то ошибка возникает только тогда когда ставишь пароль. Если защищать лист без пароля то все работает.

Всем привет. После включения общего доступа к листу, в работе макроса происходит ошибка. Пытался выяснить причину, но как то без результатно. Почему так происходит? Как это решить?  Код выглядит так
Private Sub Worksheet_Change(ByVal Target As Range)
Unprotect "подбор"
'Updated by Extendoffice 20180830
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
Dim xDPRg, xRg As Range
xCellColumn = 10
xTimeColumn = 13
xRow = Target.Row
xCol = Target.Column
If Target.Text <> "" Then
   If xCol = xCellColumn Then
      Cells(xRow, xTimeColumn) = Now()
   Else
       On Error Resume Next
       Set xDPRg = Target.Dependents
       For Each xRg In xDPRg
           If xRg.Column = xCellColumn Then
               Cells(xRg.Row, xTimeColumn) = Now()
           End If
       Next
                 End If
End If
Protect Password:="подбор", Scenarios:=True, UserInterfaceOnly:=True
End Sub