Sayfa korumalı iken kodlar aktif değil

[zekigarden]

selamlar
Excelde bir sayfaya şöyle bir kod girdim

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Select Case Target
Case "": Target.Font.ColorIndex = 0
Case "A": Target.Font.ColorIndex = 4
Case "B": Target.Font.ColorIndex = 5
Case "C": Target.Font.ColorIndex = 6
Case "D": Target.Font.ColorIndex = 7
End Select
End Sub

yani A yeşil. B mavi, C sarı, D kırmızı olacak şekilde oluyorda
yalnız sorun şu bu sayfada bazı hücreleri koruma altına aldım yazılmayacak yerleri sayfa korumada iken hücrelere harfleri yazdığımda renkli olmuyor yani kodlama çalışmıyor. Korumalı hücrelere zaten yazılmıyor orası yanlış anlaşılmasın koruma olmayan hücrelere yazıyorum ama harfler rekli olmuyor sayfa korumasını kaldırdığım zaman harfler istenilen rekleri alıyor.
şimdiden teşekürler

 

[Metin Karaağaç]

Bir de böyle deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
ActiveSheet.Unprotect
Select Case Target
Case "": Target.Font.ColorIndex = 0
Case "A": Target.Font.ColorIndex = 4
Case "B": Target.Font.ColorIndex = 5
Case "C": Target.Font.ColorIndex = 6
Case "D": Target.Font.ColorIndex = 7

End Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub