sayfa korumasında makronun çalışmaması

[karahan61]

Arkadaşlar merhaba

bir çalışmama esas olacak ekdeki dosyada mevcut makro (emeği geçene teşekkürler) sayfa koru dediğimde çalışmamaktadır.

1-Sayfa koru dediğimde çalışması için
2-İstenilen satırdan mesela 10.satırdan renklendirme başlaması için
yardım ederseniz sevinirim.

 

[Korhan Ayhan]

Selamlar,

Dosyanızdaki kodu silip aşağıdaki kodu uygulayın. Kırmızı renkli bölümler koruma şifresidir. Dilediğiniz gibi değiştirebilirsiniz.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Unprotect "[COLOR=red]12345[/COLOR]"
 
    Cells.FormatConditions.Delete
    If Intersect(Target, Range("A10:L27")) Is Nothing Then Exit Sub
    On Error Resume Next
    With Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Column))
        .FormatConditions.Add Type:=xlExpression, Formula1:="1"
        .FormatConditions(1).Interior.ColorIndex = 40
    End With
    With Range(Cells(10, Target.Column), Cells(Target.Row - 1, Target.Column))
        .FormatConditions.Add Type:=xlExpression, Formula1:="1"
        .FormatConditions(1).Interior.ColorIndex = 40
    End With
 
    ActiveSheet.Protect "[COLOR=red]12345[/COLOR]"
End Sub

 

[karahan61]

TEŞEKKÜRLER
Çalışmanızda başarılar dilerim