sayfa korumalı iken süzme sorunu

[arifbirgen]

Değerli arkadaşlar
sayfa korumalı iken TextBox1 e no girdiğimde süzme yapılmıyor.Sayfa
korumalı iken süzme yapılmasını istiyorum.Yardımcı olursanız memnun olurum.

 

[Korhan Ayhan]

Selamlar,

Sayfanızı korumaya alırken seçeneklerden Otomatik Filtre Kullan seçeneğini aktif hale gerirseniz. İstediğiniz sonuca ulaşabilirsiniz.

 

[arifbirgen]

sn hocam Korhan Ayhan
Cevabınızdan dolayı teşekkür ederim.Otomatik süz kullan seçeneğini seçmeme rağmen süzme işlemi olmadı.

 

[omerceri]

Süz kodlarının
başına
ActiveSheet.Unprotect Password:="şifre"
sonuna:
ActiveSheet.Protect Password:="şifre", DrawingObjects:=True, Contents:=True, Scenarios:=True
kodlarını yazarsanız çalışır. Şifrenizin tesbit edilme tehlikesi var ama kodlara girip araştıracak kimse için şifreyi öğrenmek zor değil.

 

[omerceri]

Tools/VBAProject/Properties/Prodection Menüsünden kodlara erşiminide şifreliyebilirsiniz

 

[arifbirgen]

sn Ömerceri
amacım şifre koymak değil veri girerken formülün silinmesini
önlemek.Sayfa korumalı iken süzme olmasını istiyorum.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Not: 12345 yerine kendiniz farklı bir şifre girebilirsiniz.

Private Sub TextBox1_Change()
    On Error Resume Next
    ActiveSheet.Unprotect "12345"
    NO = TextBox1.Value
    Set FC2 = Range("A8:R65000").Find(What:=NO)
    Application.GoTo Reference:=Range(FC2.Address), _
       Scroll:=False
    Selection.AutoFilter Field:=3, Criteria1:=TextBox1.Value
    If NO = "" Then
    Selection.AutoFilter Field:=3
    End If
    ActiveSheet.Protect "12345"
End Sub

 

[arifbirgen]

sn hocam Korhan Ayhan
Çok teşekkür ederim.Verdiğiniz cevapla sorun giderildi.Başarı ve
esenlikler dilerim.