Aktif olan hücre ve satır renklendirme hk.

[aliakgul]

Değerli Arkaddaşlar,
Aşağıda verdiğim kodlar aktif satırın renklendirilmesi için Sn. fructose tarafından oluşturulan bir çalışma...Normal şartlarda sorunsuz çalışıyor ancak sayfa korumayı etkinleştirdiğimizde çalışmıyor. Koruma etkin iken de çalışması için nasıl bir uyarlama yapmamız gerekiyor?
Teşekkür ederim...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ColorIndx As Integer
On Error Resume Next
ColorIndx = Target.Interior.ColorIndex
ColorIndx = IIf(ColorIndx < 0, 6, ColorIndx + 1)
Cells.FormatConditions.Delete
With ActiveCell.EntireRow
.FormatConditions.Add Type:=2, Formula1:=1
.FormatConditions(1).Interior.ColorIndex = ColorIndx
End With
End Sub

 

[nazif74]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Activesheet.unprotect"PAROLANIZ"
Dim ColorIndx As Integer
On Error Resume Next
ColorIndx = Target.Interior.ColorIndex
ColorIndx = IIf(ColorIndx < 0, 6, ColorIndx + 1)
Cells.FormatConditions.Delete
With ActiveCell.EntireRow
.FormatConditions.Add Type:=2, Formula1:=1
.FormatConditions(1).Interior.ColorIndex = ColorIndx
End With
activesheet.protect"PAROLANIZ"
End Sub

 

[aliakgul]

Özür dilerim, atladığım birkaç hususu tekrar incelemem gerekiyor. O nedenle mesajımı değiştirdim.Emeğe saygısızlık olmasın...

 

[even]

Ben de sağulsun Fruktoz Bey'in kodunu kullanıyordum fakat,
HUcre icinde kırmızı font kullanılmışsa, seçili hucre okunaksız oluyordu unutmadan yazayım

 

[Metin Karaağaç]

Fruktoz Bey'in

Yorumsuz..

 

[even]

yorum yap, açık olalım

 

[Metin Karaağaç]

Yapmam.
Banane, banane..