Макрос запрещающий редактирование текста в ячейке выделенной определенным цветом - VBA

Формулировка задачи:

Добрый вечер . пожалуйста подскажите макрос который бы запрещал редактирование ячеек определенного цвета. Именно запретить Ввод данных в них. В документе есть ряд ячеек имеющих красный цвет заливки Нужно сделать так чтобы при условии если ячейка имеет заливку красного цвета ее редактирование становилось не возможным. Реально ли такое сделать?

Решение задачи: «Макрос запрещающий редактирование текста в ячейке выделенной определенным цветом»

textual
                            Листинг программы 
                        

                            Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Interior.ColorIndex = 2 Then
    MsgBox ("Данные не вводить!")
    Range("A1").Select
End If
End Sub
                        