Google gibi arama yapma

[Ahmet Sami]

İyi günler arkadaşlar aşağıdaki kod ile normal bir excel sayfasında arama yapabiliyorum. Ancak aynı sayfayı kilitlediğim zaman kod hata veriyor arama yapmıyor. Sayfayı kilitlediğim halde aynı şekilde arama yapabilmem gerekiyor. Yardımcı olabilir misiniz.

Private Sub TextBox1_Change()
If TextBox1 = "" Then
Range("A1").AutoFilter Field:=6
Else
Range("A1").AutoFilter Field:=6, Criteria1:="*" & TextBox1 & "*"
End If
End Sub

 

[50ersin]

benim için de lazım bulan varsa çok güzel olur

 

[AdemCan]

İşlem sırasında sayfanın koruma şifresini açıp, işlem sonunda tekrar sayfaya koruma şifresi verebilirsiniz.

Koyu yazı ile belirttiğim satırlar ile bahsettiğim işlemi yapabilirsiniz.
Çift tırnak içerisine sayfa ismi ve sayfa koruma şifresini yazınız.

Private Sub TextBox1_Change()
If TextBox1 = "" Then
Range("A1").AutoFilter Field:=6
Else
Sheets("Sayfa İsmini Yazınız").Protect "Şifreyi Buraya Yazınız"
Range("A1").AutoFilter Field:=6, Criteria1:="*" & TextBox1 & "*"
End If
Sheets("Sayfa İsmini Yazınız").Unprotect "Şifreyi Buraya Yazınız"
End Sub

 

[Ahmet Sami]

Sayın faye_efsane teşekkür ederim ama sayfanın sürekli kilitli kalması gerekiyor. O şekilde yardım ederseniz sevinirim.

 

[AdemCan]

Sayfayı koru seçeneklerinde Otomatik Filtre Kullan özelliğini seçiniz.

 

[Ahmet Sami]

Onu da denedim maalesef olmuyor. TextBox1 oradan arama yapıyorum

 

[YUSUF44]

Bu işlemde sayfa zaten kilitli kalmıyor mu? Kod geçici olarak kilidi açıp işlem yapıyor sonra da kilitliyor. O arada başka işlem yapılmaz ki!

 

[Orion1]

Şöyle deneyiniz.

Private Sub TextBox1_Change()
Sheets("Sayfa1").unprotect "Şifre"
If TextBox1 = "" Then
Range("A1").AutoFilter Field:=6
Else
Range("A1").AutoFilter Field:=6, Criteria1:="*" & TextBox1 & "*"
End If
Sheets("Sayfa1").protect "Şifre"
End Sub

 

[Ahmet Sami]

Sayın Orion çok teşekkür ederim oldu.
Diğer kardeşlerimize de, nezaket gösterip yardımcı olmak için yazdıklarından dolayı çok teşekkür ederim.