Auto Filter Makro İle Yapınca Neden Bozuluyor ?

[baydeniro]

Merhaba arkadaşlar. Aşağıdaki kodu manuel yapınca Sayfa Koruma altında iken Auto Filter özelliği çalışıyor. Ama aynı işi makro ile yaptıktan sonra Auto Filter özelliği çalışmıyor.

Sub KORU()
ActiveSheet.Unprotect "qwerty"

Range("A1:C10").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
ActiveSheet.Protect "qwerty"
End Sub

Bu duruma "ActiveSheet.Protect "qwerty" şeklinde parola oluştutulmasının neden olduğunu düşünüyorum. Bu duruma bir çözüm var mı acaba ?

 

[baydeniro]

Bu konuda fikri olan var mı arkadaşlar ?

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil deneyiniz

ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True

 

[baydeniro]

Sayın N.Ziya Hiçdurmaz, Allah sizden razı olsun, ne muradınız varsa versin, işiniz gücünüz rast gitsin. Sağlıcakla kalın.

 

[N.Ziya Hiçdurmaz]

Allah sizden'de razı olsun.Sayın serdarokan