Korumalı sayfanın tex box'unda arama yaptırmak

[cebelitarık]

Değerli üstadlar,
Ekli dosyayı sayfayı korumalı hale getirdiğimde tex kutusuna kriter yazarak arama yaptıramıyorum. Tex kutusu korumalı olduğundan değer almıyor.
İstediğim sayfa korumalı ikende tex kutusundan istedğim şekilde arama yaptırabilmek
Arama yapılması için tex kutusuna tıklandığında sayfa koruma şifresi ile koruma kaldırılabilir. Kutudan çıktıktan sonra sayfa geriye otomatik olarak kilitlenebilir diye düşünüyorum. Ancak kodlarını yazmayı başaramadım.
Başka yolu varsa yardım bekliyorum.
İlgilenecek arkadaşlara teşekkürler.

 

[Halit TÜRK]

Kodda geçen kırmızı yazılı kısımları denermisiniz.. "koru" yazan yere kendi parolanızı yazınız yada boş bırakınız..

Private Sub TextBox1_Change()
On Error Resume Next
SONUC2 = TextBox1.Value
ActiveSheet.Unprotect "koru"
Set FC2 = Range("A265500").Find(What:=SONUC2)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=4, Criteria1:="*" & TextBox1.Value & "*"
If SONUC2 = "" Then
Selection.AutoFilter Field:=4
End If
ActiveSheet.Protect "koru"
End Sub

 

[cebelitarık]

Sayın htrk
ilgine teşekkür ederim
Ancak aynı kodları ben daha önceden denedim ama başarılı olamadım
örnek dosyama uyguladıysan uygulanmış halini gönderebilirsen sevinirim
selamlar

 

[Halit TÜRK]

Dosyanız ektedir..

 

[cebelitarık]

Sayın htrk
ancak işlemi bu şekilde bir defa yapabiliyoruz
makro çalıştıktan sonra nesne düzenleme işareti kaldırılıyor bir daha arama yaptıramıyoruz.
aynı zmanda kilitli olmayan hücrelerde de işlem yaptırmıyor.

teşekkür ederim

 

[Halit TÜRK]

4. mesajı düzelttim kontrol edermisiniz...

 

[cebelitarık]

SAYIN HTRK
ancak bir defa arama yaptırabiliyorum
kontrol etmeniz mümkünmü

 

[Halit TÜRK]

Son hali ekli..

 

[Halit TÜRK]

Düzenlenmesini istediğiniz yerleri "kullanıcıların aralıkları düzenlemesine izin ver" kısmına izin verilecek alanı belirlemeniz gereklidir..