Как заблокировать записанные ячейки в файле макроса и сделать их другого цвета (также заблокированы)

Question

Итак, я наконец-то нашел код для своего листа макроса, просто нужно немного доработать. Я хочу заблокировать значения в записанных ячейках (как на прикрепленном изображении) и сделать их другого цвета (также заблокированными) для визуально лучшего вида.

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

Мой текущий код:

Option Explicit


Sub Add_Nos(myRow As Long, myCol As Long, ByRef myTarget As Range)

Dim r As Long, c As Long

With Worksheets("Sheet1")
r = .Cells(myRow, "A").Value
c = .Cells(1, myCol).Value
End With

If myTarget.Value = r + c Then
myTarget.Interior.ColorIndex = 4
Else
myTarget.Interior.ColorIndex = 0
End If

End Sub

'===============================================================

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count = 1 Then
Add_Nos Target.Row, Target.Column, Target
End If

End Sub