satır seçilip seçilmediğini nasıl anlarım

[kykbt]

Arkadaşlar merhaba
Aşağıdaki kodu yazdım ancak çalışmıyor.
Ben 19.cu satırı komple seçtiğimde sayfanın korumasını kaldırmak istiyorum.

If Intersect(Target, Selection.Rows("19:19")) Is Nothing Then ActiveSheet.Unprotect ""

yanlışım nerede?

 

[Tevfik_Kursun]

Merhaba,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Selection.Rows("19:19")) Is Nothing Then [A1] = 1  '   ActiveSheet.Unprotect ""
End Sub

Bu makro ile yeni bir excel dosyada deneme yapın. 19. satırı tuttuğunuzda A1 hücresine 1 yazacaktır. Kırmızı karakterleri sildiğinizde de istediğiniz olacaktır.
İyi çalışmalar

 

[kykbt]

Hocam bu şekilde hangi satırı seçerseniz seçin A! hücresine 1 yazıyor.
Yani her koşulda 1 yazıyor.

 

[Tevfik_Kursun]

Evet haklısınız, hangi hücreyi seçerseniz de A1 hücresine 1 rakamını yazıyor.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Rows("19:19")) Is Nothing Then
        If Selection.Columns.Count = Columns.Count Then
            ActiveSheet.Unprotect ""
        End If
    End If
End Sub

 

[kykbt]

Korhan hocam merhaba teşekkür ediyorum.
Sağlıkla kalın.