Otomatik süz sorunu

[yavuz829]

Merhaba arkadaşlar ekli dosyamdaki korumalı sayfayı tıkladığım zaman filtrelemeyi sona erdiriyor. Ayni zamanda otomatik filtrelemeyi de ortadan kaldırıyor. Benim istediğim korumalı sayfaya tıkladığımız zaman o sayfada filitreleme varsa filtreleme sona ersin yani bütün satırlar görünsün ve Sayfayı Koru/Çalışma sayfasını ve kilitli hücrelerin içeriğini koru altındaki Otomatik filtre kullan işaretini kaldırmasın. Yani yeniden süz işlemini yapmama izin versin Bu konuda yardımlarınızı bekliyorum. Yardımlarınız için şimdiden teşekürler.

Koruma parolası :123

 

[Emir Hüseyin Çoban]

. . .

Merhaba.
Sorunuz bana biraz karmaşık geldi. Anlayamadım.

• Örnek tablonuzu biraz daha geliştirip, üzerinde açıklama yapar mısınız?

• Kullandığınız office versiyonu Office 2000 görünüyor. Ancak eklediğiniz dosya .xlsm uzantılı. Sanırım 2007 ve üstü bir sürün kullanıyorsunuz.

. . .

 

[yavuz829]

Hocam yeni açıklamalı dosya ekledim. Saygılar.

Hocam Ofis 2007 kulaniyorum.

 

[Emir Hüseyin Çoban]

. . .

Aşağıdaki kodları deneyiniz.

Private Sub Workbook_SheetActivate(ByVal sh As Object)
ActiveSheet.Unprotect "123"
On Error Resume Next
ActiveSheet.ShowAllData
If ActiveSheet.AutoFilterMode Then ActiveSheet.Range("A1").AutoFilter field:=1
    ActiveSheet.Protect "123", AllowFiltering:=True
End Sub
Sub auto_close()
Dim sh As Worksheet
For Each sh In Worksheets
On Error Resume Next
ActiveSheet.ShowAllData
    If sh.AutoFilterMode Then sh.Range("A1").AutoFilter field:=1
Next
End Sub

. . .

 

[yavuz829]

Çok teşekürler hocam ellerinize sağlık. Tam istediğim gibi olmuş.