Makro Kodunu Deşifre Etmede Yardım

[baydeniro]

Merhaba arkadaşlar. Aşağıdaki linkte bulunan dosya açıldığında maalesef makroları siliyor. Bu dosyayı açıp, içindeki makro kodunu cevap olarak bu konuya ekler misiniz lütfen !!! Çok teşekkürler.

http://www.excel.web.tr/showthread.php?t=31384&highlight=t%FCm+filtreleri+kontrol

 

[Merhum İdris SERDAR]

Sub filter()
For a = 1 To Worksheets.Count
Worksheets(a).Select
Criter = Sheets("Genel").Range("j4").Text
Selection.AutoFilter Field:=2, Criteria1:=Criter
Next
Sheets("Genel").Select
End Sub
Sub kaldir()
For a = 1 To Worksheets.Count
Worksheets(a).Select
Selection.AutoFilter Field:=2
Next
Sheets("Genel").Select
End Sub


Kod şifrelenmemiş???

 

[baydeniro]

Teşekkürler

Sayın yurttas, değerli zamanınızı ayırdığınız için Allah sizden razı olsun, işlerinizi rast getirsin. Sağlıcakla kalın.