Filtre Kaldırma geri koyma makrosu

[leonadies]

Merhaba ustadlar.Korumalı Bir çalışma sayfasında çeşitli süzüm işlemlerim bulunuyor. Bunları tek tek süzümleri iptal etmek zaman alıyor. Bir makro toparladım ancak. Butona basınca süzme basarılı sekilde tüm sütunlarda iptal oluyo ve sayfa tekrar koruma altına giriyor ancak sonrasında süzme işlemi yapamaz hale geliyorum.. Kod da eksik olan nedir acaba?

Sub FiltreTemizle()
On Error Resume Next

Worksheets("B_Panel").Unprotect "kaya3690"

ActiveSheet.ShowAllData

Worksheets("B_Panel").Protect "kaya3690"

End Sub

 

[Ömer BARAN]

Merhaba.

Aşağıdaki şekilde olması lazım.

NOT: Mesajlarınızda formül/kod eklemesini;
mesaj yazma ekranının hemen üstünde sağda bulunan # düğmesine fareyle tıkladığınızda oluşacak
[CODE ]....kod/formül metni....[/CODE ] arasına ekleyerek yapınız.
.

[FONT="Arial Narrow"]Sub FiltreTemizle()
Sheets("B_Panel").Unprotect "[COLOR="Red"]kaya3690[/COLOR]": On Error Resume Next
If Sheets("B_Panel").AutoFilterMode = True Then Sheets("B_Panel").ShowAllData
Sheets("B_Panel").Protect "[COLOR="Red"]kaya3690[/COLOR]", Contents:=True, Scenarios:=True, AllowFiltering:=True
End Sub[/FONT]