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

aliakgul

Altın Üye
Katılım
9 Mayıs 2005
Mesajlar
402
Excel Vers. ve Dili
Ofis 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
03-08-2025
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...
Kod:
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
 
Katılım
17 Eylül 2005
Mesajlar
156
Excel Vers. ve Dili
Office 2003 - Türkçe
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

Altın Üye
Katılım
9 Mayıs 2005
Mesajlar
402
Excel Vers. ve Dili
Ofis 2016 TR 64 Bit
Altın Üyelik Bitiş Tarihi
03-08-2025
Ö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...
 
Katılım
27 Mayıs 2006
Mesajlar
89
Excel Vers. ve Dili
Excel 2000 - Tr
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ç

Uzman
Altın Üye
Katılım
25 Aralık 2004
Mesajlar
1,793
Excel Vers. ve Dili
Office 2016 Pro Plus-Türkçe
Altın Üyelik Bitiş Tarihi
10-12-2025
Yapmam.
Banane, banane..
 
Üst