Aktif Hücre Renklendirme Kilitli Hücrelerde Çalışmıyor

[RedStar]

Degerli üstadlar elime aşağıdaki gibi bir kod geçti sayfada çalışıyor ama sayfada bazı hücreleri kilitleyip sayfayı korumaya aldığımda hata veriyor. Bu sorunu çözmenin bir yolu varmı ? teşekkürler.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <= 14 And Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
            Application.ScreenUpdating = False
             Range("A:N").FormatConditions.Delete
             Range(Target.Address).FormatConditions.Add Type:=xlExpression, Formula1:=1
             Range(Target.Address).FormatConditions(1).Interior.ColorIndex = 44
        Application.ScreenUpdating = True
    End If

End Sub

Sayfa korumaya alınınca

Range("A:N").FormatConditions.Delete

yukarıdaki kodda hata veriyor.

 

[Ömer BARAN]

Merhaba.
İşlemin hemen öncesine korumayı kaldırma, işlemin hemen sonrasında da tekrar koruma uygulaması için
birer kod satırı eklemeniz gerekecek demektir.

Koruma kaldırma/ekleme konusunda forumda çok sayıda örnek vardır,
forum sayfalarının sağ üst kısmındaki ARAMA bölümünü kullanarak bulabilirsiniz.
.

 

[RedStar]

Teşekkür ederim usta

GM 9 Pro cihazımdan Tapatalk kullanılarak gönderildi