Worksheet_SelectionChange Sayfa Koruma Etkinken Çalışmıyor.

[a_self_lion]

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.

 

[Korhan Ayhan]

Selamlar,

Çalışmaması gayet doğal. Korumalı sayfalarda makrolar çalışmaz. İlk önce korumayı kaldırmanız gerekiyor. İşleminiz bitincede tekrar korumaya almanız gerekiyor.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Son
    Dim i As Long
    Dim SonKolon As Integer
    Dim Secim As Range

    ActiveSheet.Unprotect Password:="12345"

    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:
    ActiveSheet.Protect Password:="12345"
End Sub

 

[a_self_lion]

Teşekkür ederim Korhan Bey...