İmleç renklendirme

[mavi674]

Herkese Selamlar
İmlecin bulunduğu hücreyi belirtmek için renklendiren bir makro var

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Satır As Range, Sütun As Range Cells.FormatConditions.Delete With ActiveCell .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:=1 .FormatConditions(1).Font.Bold = True .FormatConditions(1).Interior.ColorIndex = 4 End With End Sub

Güzel çalışıyor ama ufak bir sorun var. mesela g5:h22 arasında hücre kilidini açarak sayfayı korumaya alınca imleç renklendirme makrosu hata veriyor çalışmıyor.. Acaba bu makroyu sayfa koruması olduğu halde g5:h22 arasında çalıştırabilir miyiz?... Teşekkürler....

 

[DoğanD]

Kodun başına ActiveSheet.Unprotect yazarak korumayı açıp, sonuna ActiveSheet.Protect yazıp tekrar korumaya alabilirsiniz. Bu işlemin görsel olarak rahatsız etmemesi için de Application.ScreenUpdating işlevini kodun başında kapatıp, sonunda açabilirsiniz. Sayfa korumada parola varsa, "Password:="Parolanız"" kodunu Protect ve Unprotect satırlarının sonuna ekleyiniz.

 

[mavi674]

Teşekkürler DoğanD

ActiveSheet.Unprotec hata ver,yor Ben de

Sheets("GİRİŞ").Unprotect Password:="" yaptım şimdi tamam Aslında ActiveSheet.Unprote daha iyi idi. Sayfa adını yazmıyoruz. Bu düzeltilebilir mi?

 

[DoğanD]

Teşekkürler DoğanD

ActiveSheet.Unprotec hata ver,yor Ben de

Sheets("GİRİŞ").Unprotect Password:="" yaptım şimdi tamam Aslında ActiveSheet.Unprote daha iyi idi. Sayfa adını yazmıyoruz. Bu düzeltilebilir mi?

ActiveSheet adı üzerinde aktif sayfa için işlem yapıyor. Yani bu kodu kullanmanız için hemen öncesinde o sayfayı seçtirmelisiniz, aşağıdaki gibi. Fakat siz zaten sayfanın SelectionChange olayında işlem yaptırıyordunuz. Dolayısıyla aktif sayfanızın problem olmaması gerekirdi.
Sheets("GİRİŞ").select
ActiveSheet.Unprotect

 

[mavi674]

Anladım
Teşekkürler