Worksheet_SelectionChange sayfa koruma etkinken çalışmıyor.

[a_self_lion]

Kod: [Seç]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son
Dim i           As Long
Dim SonKolon    As Integer
Dim Secim       As Range
Set Secim = Range("A5").CurrentRegion
SonKolon = Secim.Columns.Count
Cells.Interior.ColorIndex = xlNone

If Target.Row = 1 Then Exit Sub

Range(Cells(Target.Row, "A"), Cells(Target.Row, SonKolon)).Interior.ColorIndex = 44
Son:

End Sub


S.a. Arkadaşlar. Yukarıdaki kodlarımızla bir sayfada satırı sarıya boyatarak işaretlendirebiliyorduk. Lâkîn sayfa koru diyince bu macro çalışmıyor bunu nasıl çalıştırabilirim.

[Bülent Öztürk]

A.S.
Sayfa koruma yaparken seçmeyi engellemeyin.
Kodların başına sayfa korumayı kaldıran ve sonuna da tekrar koruyan kodlar ekleyerek çözebilirsiniz.

[a_self_lion]

Teşekkür ederim dostum.