Sekme Rengini Değiştir

[baydeniro]

Merhaba arkadaşlar. Dosya Koruma altında iken sadece sekme rengini değiştirmek makro ile mümkün olur mu ? Örnek dosya ekte.

 

[Ömer]

Merhaba,

Kodların içine renk kodu ilave edilerek olabilir. "3" kırmızının kodudur.

Sub SekmeRengi()
 
    With ActiveWorkbook
        .Unprotect
        .Sheets("LISTE").Tab.ColorIndex = 3
        .Protect
    End With
 
End Sub

.

 

[baydeniro]

Çok teşekkürle sayın Ömer. sağlıcakla kalın.