Makro ile şifrelenen sayfada otomatik filtre kullanımının aktif edilmesi

[Mehmet Sait]

Merhaba,

Bu kod ile sayfaya gittiğimde otomatik filtre kullanımı aktif olarak sayfanın kilitlenmesi için ne yapmam gerekiyor.

Yardımlarınız için teşekkür ederim.

Sub menu()
Sheets("Sayfa1").Select
ActiveSheet.Protect Password:="699"
Range("B6").Select
ActiveWindow.Zoom = 100
ActiveSheet.Range("B6:B15000").Find("?", , , , xlByRows, xlPrevious).Offset(1, 0).Select
End Sub

 

[EmrExcel16]

Merhaba , aşağıdaki gibi deneyiniz..

ActiveSheet.Protect Password:="699", AllowFiltering:=True

 

[Mehmet Sait]

Merhaba , aşağıdaki gibi deneyiniz..

ActiveSheet.Protect Password:="699", AllowFiltering:=True

Teşekkür ederim.

 

[EmrExcel16]

Rica ederim , iyi çalışmalar.