Excel 2003: Farbige Zellen automatisch sperren

Hallo, in meinem Excel Urlaubsplaner werden Feiertage und Wochenenden blau eingefärbt.Gibt es eine Möglichkeit, das Makro so zu verändern, das diese Zellen dann für Eingaben gesperrt werden?
Vielen Dank

Sub FeiertageKennzeichnen()
Const Tab1 = 'Jan-Jun'
Const Tab2 = 'Jul-Dez'
Dim i As Integer
Dim Bereich As Range
Dim Monatswert As Integer
Dim Feiert As Date
Dim b As Boolean

ThisWorkbook.Activate
Sheets('Feiertage').Activate
Range('B1').Select
Do Until ActiveCell.Value = ''
Feiert = ActiveCell.Value
b = False
If InStr(ActiveCell.Offset(0, -1).Value, '*') > 0 Then b = True
If Month(ActiveCell.Value) > 6 Then Sheets(Tab2).Activate Else Sheets(Tab1).Activate
Range('H5').Select
For i = 8 To 189
If ActiveCell.Value = Feiert Then
Range(ActiveCell(), ActiveCell.Offset(95, 0)).Select
If b = True Then
Selection.Interior.ColorIndex = 20
Else
Selection.Interior.ColorIndex = 33
End If


Mein Computer-System:
   
Mein PC ist etwa 0-2 Jahre alt.