В колонках играет - Красное Дерево - Тоска краснодеревщика
Настроение сейчас - Ужасное настроение

Не нравятся мне методы защиты, предложенные в MS Excel. По этой причине написал небольшие процедурки. Ячейки, раскрашенные зеленым и желтым цветом – теперь не будут изменяться, если пользователь нечаянно введет в ячейку значение. Таким способом защищаем формулы и текст в ячейках. Следует вставить код программки в модуль листа и раскрасить ячейки.

Public rngval As Variant
'Процедуры обработки защиты значения ячеек желтого и зеленого цвета

Private Sub Worksheet_Change(ByVal Target As Range)
' Процедура проверки цвета выделенной ячейки и замены ранее стоявшим значением,
' если эту ячейку изменяли.
If Target.Interior.ColorIndex = 4 Or Target.Interior.ColorIndex = 6 Then Target.Formula = rngval
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Присвоение переменной значения формулы/значения выделенной ячейки
rngval = Selection.Formula
End Sub