Giriş yapıldıkça gizli satırları açan makro

[teyadih]

Merhaba arkadaşlar. Ekli dosyada A4-A1002 arasında 1 den küçük olanı gizleyen ve B satırına giriş yapıldıkca gizlenen satırları açan makro kullanıyorum.
Ancak sayfa koruması olduğunda end hatası veriyor. Mevcut kodu sayfa koruması varken de çalışacak şekilde güncelleme yapabilir misiniz?
Sayfa koruma şifresi 7895123. Teşekkür ederim.

1.TAKIP_LISTESI.xlsm dosyasını indir - download

1.TAKIP_LISTESI.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[netzone]

Merhaba,
Sayfa korumasını açıp işlem yapıldıktan sonra tekrar kilitleyerek yapabilirsiniz. Deneyiniz.
İyi çalışmalar.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B4:B65000")) Is Nothing Then Exit Sub
    Dim son As Long
    son = Cells(Rows.Count, "B").End(xlUp).Row
    
    ' Sayfa korumasını geçici olarak kaldır
    Dim currentProtection As Boolean
    currentProtection = False
    If ActiveSheet.ProtectContents Then
        ActiveSheet.Unprotect "7895123"
        currentProtection = True
    End If
    
    Application.ScreenUpdating = False
    Rows("5:1002").Hidden = False
    Rows(son + 3 & ":1002").Hidden = True
    Application.ScreenUpdating = True
    
    ' Sayfa korumasını tekrar etkinleştir (sadece koruma açılmışsa)
    If currentProtection Then
        ActiveSheet.Protect "7895123"
    End If
End Sub

 

[teyadih]

Teşekkür ederim sayın netzone kod tamam elinize sağlık