как вариант, предварительно с листа снять защиту ячеек, - Формат ячеек - Защита - снять галку.
и макрос
и макрос
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range) i = Target.Row If Range("F" & i).Value <> "передано" Then Exit Sub ActiveSheet.Unprotect Range("C" & i & ":H" & i).Locked = True ActiveSheet.Protect End Sub |