Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: a_self_lion - 15 Nisan 2011, 12:15:08

Başlık: Worksheet_SelectionChange sayfa koruma etkinken çalışmıyor.
Gönderen: a_self_lion - 15 Nisan 2011, 12:15:08

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.

Başlık: Ynt: Worksheet_SelectionChange sayfa koruma etkinken çalışmıyor.
Gönderen: Bülent Öztürk - 15 Nisan 2011, 20:55:29

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

Başlık: Ynt: Worksheet_SelectionChange sayfa koruma etkinken çalışmıyor.
Gönderen: a_self_lion - 23 Nisan 2011, 14:54:31

Teşekkür ederim dostum.