Korumalı sayfada Textbox arama ve Birden fazla sütün filtreleme

[lsagirdak]

örnek dosyada f sütununda arama yapıyoruz. Formülleri korumak için sayfa korumalı
Sayfa korumalı iken oto filtreyi F sütununda kullanıyoruz
sıkıntımız korumalı halde iken diğer sütunlardada filtrenin aktif olması (en azından C sütunundaki filtreyi kullanmak)

Örnek dosyam linktedir .: http://s2.dosya.tc/server8/st8iit/FTR_Seans_Takip.rar.html

Private Sub TextBox1_Change()
On Error Resume Next
ActiveSheet.Unprotect "1"
metin = TextBox1.Value
Set bul = Range("F4:F65000").Find(What:=metin)
Application.Goto Reference:=Range(bul.Address), Scroll:=False
Selection.AutoFilter Field:=6, Criteria1:=TextBox1.Value & "*"
If metin = "" Then Selection.AutoFilter Field:=6
[f0].Select

ActiveSheet.Protect "1"

End Sub

Private Sub TextBox1_GotFocus()
TextBox1.Text = ""
End Sub

 

[Ömer]

Merhaba,

ActiveSheet.Protect "1"

Yerine aşağıdaki satırı kullanın.

ActiveSheet.Protect Password:="1", DrawingObjects:=True, _
    Contents:=True, Scenarios:=True, AllowFiltering:=True

 

[lsagirdak]

Teşekkür ederim Ömer hocam

Merhaba,

ActiveSheet.Protect "1"

Yerine aşağıdaki satırı kullanın.

ActiveSheet.Protect Password:="1", DrawingObjects:=True, _
    Contents:=True, Scenarios:=True, AllowFiltering:=True