korumalı sayfada textbox ile arama yapma

[ex48]

Merhaba
Ekteki dosyamda tüm çabalarıma rağmen korumalı sayfada textbox ile arama yaptıramadım. Koruma yokken çalışıyor..
Korumayı kaldır.Kodu çalıştır.Tekrar koruma koy. veya başka yolla çözüm bulabilecek arkadaşların yardımını bekliyorum...Şimdiden teşekkür ederim.
şifre s

 

[vaskal]

Kardeş iyide senin dosyayı açmak için şimdi internetten şifre mi arayalım? Şu çalışmayı parolasız koyarsan bir bakalım...

 

[ex48]

ilk mesajda yazdığı gibi şifresi s

Kardeş iyide senin dosyayı açmak için şimdi internetten şifre mi arayalım? Şu çalışmayı parolasız koyarsan bir bakalım...

şifresi s

 

[vaskal]

Dosyanız ekte...
Göster ve Gizle komutlarına eklediğim

ActiveSheet.Unprotect

ActiveSheet.Protect

komutlarını diğer yerlere de uyarlayınız.

Anladığım kadarıyla detaylı bir çalışma yapıyorsunuz. Yalnız bence görselliğe biraz daha fazla önem vermelisiniz ve mümkün olduğunca sade bir ekran görüntüsü(sayfa düzeni yani) hazırlamalısınız. Mesela aramayı hangi buton ile yaptırıyorsunuz bulamadım.

 

[mustafa7691]

Private Sub TextBox1_Change()
On Error Resume Next
METİN2 = TextBox1.Value
ActiveSheet.Unprotect Password:="s"
Set FC2 = Range("C3:C65000").Find(What:=METİN2)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False


Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Value & "*"
If METİN2 = "" Then

Selection.AutoFilter Field:=1
ActiveSheet.Protect Password:="s"

End If
End Sub


textbox kodunuzu bu şekilde denermisiniz.

 

[ex48]

Vaskal ve Mustafa 7691 öncelikle ilgi ve yardımlarınız için teşekkür ederim.

Mustafa arkadaşın düzenlediği kodlar tam istediğim gibi sorunu halletti.
Sağlıklı ve mutlu günler dilerim.