Sayfayı koru dediğimde TextBox ile süzme yapmıyor

[akmes]

Selamlar;

Sayfa1 kod bölümünde;

Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
Range("A9:d9").Select
Selection.AutoFilter
Exit Sub
ElseIf CheckBox1.Value = True Then
Range("A9:d9").Select
Selection.AutoFilter
End If
End Sub
Private Sub TextBox1_Change()
If TextBox1.Text <> "" Then
suzul = suz(1, "*" & TextBox1.Text & "*")
Else
Selection.AutoFilter field:=1
End If
End Sub
Private Sub TextBox2_Change()
If TextBox2.Text <> "" Then
suzul = suz(2, "*" & TextBox2.Text & "*")
Else
Selection.AutoFilter field:=2
End If
End Sub
Private Sub TextBox3_Change()
If TextBox3.Text <> "" Then
suzul = suz(3, "*" & TextBox3.Text & "*")
Else
Selection.AutoFilter field:=3
End If
End Sub
Private Sub TextBox4_Change()
If TextBox4.Text <> "" Then
suzul = suz(4, "*" & TextBox4.Text & "*")
Else
Selection.AutoFilter field:=4
End If
End Sub

Modülde ise;

Function suz(ByVal alan As Byte, ByVal txt As String)
Range("a9").AutoFilter field:=alan, Criteria1:=txt

End Function

Bu kod mevcut. Sayfayı korumaya aldığımda süzme yapamıyorum.Araçlar / Koruma /Sayfa koru bölümünden otomatik filitre kullan tıklı olduğu halde vermiyor.

Yardımınızı rica ediyorum.Saygılar.

 

[uzmanamele]

merhaba

ilk satırda korumayı kaldırıp, son satırda tekrar koruma koyunuz.

 

[akmes]

Üstadım, nasıl yapacağımı bilemedim yardımcı olurmusunuz?

merhaba

ilk satırda korumayı kaldırıp, son satırda tekrar koruma koyunuz.

 

[Ergün Güler]

Selam,
Sayfayı el ile seçip koruma yapıyorsanız, sayfayı koru penceresinde ve alt kısmında seçeneklerin içindeki "Otomatik Süz'ü kullan" seçerek koruma yapınız.

kodlar ile yapıyorsanız, aşağıdaki örnek sayfa korumasını inceleyiniz. Şifre örnektir. kodlar önce korumayı kaldırıp en sonda korumayı aktif yapacaktır.kırmızı alanı eklerseniz korumalı sayfada süzmeyi aktif yapacaktır.

Sifre = "1234"
Sheets.Unprotect Password:=Sifre

'*****Brada kodlarınız olacak**********

Sheets.Cells.Locked = True
Sheets.Protect Password:=Sifre, AllowFiltering:=True