Satırların aktif hale gelmesi

[karahan61]

Arkadaşlar tekrar merhaba..!

bir çalışmamda kullandığım bir kod sonucu çalıma sayfamda kangi satırdaysam o satır renkleniyor ve çok kullanışlı oluyordu. çalışma sayfasında formül olduğu için sayfa korumayı seçtiğimde satırları aktif hale getiren kod çalışmıyor
sizce sorun nerde..?
yardımlarınız için teşekkürler

 

[leumruk]

Unprotect 12345
Renklendirme kodlarınız
Protect 12345

Kodlarınızın başına ve sonuna yukarıda yazdığım satırları ekleyin. Koruma şifrenizi bilmediğim için, 12345 yazdım. Siz kendi şifrenizi yazabilirsiniz.
Sorunun sebebine gelince korumalı hücrede makro çalışmayacaktır.
Eğer bu sorununuzu çözmediyse, kodlarınızın bulunduğu örnek bir dosya ekleyiniz.

 

[karahan61]

bu kodu kullanmıştım neresine yazmam gerekiyor koruma şifresini

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 20
'Turn off previous use
If Cells(1, 1) = "." Then Exit Sub
Target.EntireRow.Interior.ColorIndex = 38
End Sub

 

[leumruk]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Unprotect 12345
   Cells.Interior.ColorIndex = 20
   'Turn off previous use
   If Cells(1, 1) = "." Then Exit Sub
   Target.EntireRow.Interior.ColorIndex = 38
Protect 12345
End Sub

Bu şekilde dener misiniz?

 

[karahan61]

yardımlarınız için çok teşekkür

 

[leumruk]

yardımlarınız için çok teşekkür

Rica ederim.