Makroyu ya da kodu düzeltmek

[AKREP1]

Ekteki dosyamda sayfaya satır ve sütun renklendirme kodu uygulanınca koru makrosu bunu engelliyor.Araçlar sekmesinden Sayfa korumasını kaldırınca kod çalışıyor.Benim isteğim bunların ikisinin de aynı anda çalışması.Yardımcı olursanız sevinirim.Saygılarımla.

 

[Orion1]

Dosyanız ekte.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   [COLOR="Red"][B] ActiveSheet.Unprotect[/B][/COLOR] 
Cells.Interior.ColorIndex = 1  'Turn off previous use Cells.Interior.ColorIndex = 1  'Turn off previous use
   If Cells(1, 1) = "." Then GoTo son
   Target.EntireRow.Interior.ColorIndex = 5
   Target.EntireColumn.Interior.ColorIndex = 26
[COLOR="red"][B]son:
   ActiveSheet.Protect[/B][/COLOR]
End Sub

 

[AKREP1]

Teşekkürler,elinize emeğinize sağlık.

 

[Orion1]

Teşekkürler,elinize emeğinize sağlık.

Rica ederim.
İyi çalışmalar.

 

[AKREP1]

Tablo koruması olmadan yapmak mümkü mü?Teşekkürler

 

[Orion1]

Tablo koruması olmadan yapmak mümkü mü?Teşekkürler

Sayfa korumasını kaldırın ve 2 numaralı mesajda kırmızı renkli satırları silin.

 

[AKREP1]

Teşekkürler,sağolun.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[COLOR="[COLOR="Red"]Yellow"]Cells.Interior.ColorIndex = 1 'Turn off previous use Cells.Interior.ColorIndex = 1 'Turn off previous use[/COLOR][/COLOR]
If Cells(1, 1) = "." Then GoTo son
Target.EntireRow.Interior.ColorIndex = 5
Target.EntireColumn.Interior.ColorIndex = 26
son:
End Sub
satır hata veriyor.

 

[AKREP1]

Yardımcı olursanız sevinirim.

 

[Orion1]

Sayfa korumasını kaldırın.

 

[AKREP1]

Teşekkürler dediğinizi yaptım düzeldi.Sağolun.

 

[Orion1]

Teşekkürler dediğinizi yaptım düzeldi.Sağolun.

Rica ederim.