Makro ile Sayfa Kilitlemede Filtreleme Problemi

[akhsahbaz]

Arkadaşlar, forumda daha önce bulmuş olduğum 2 makro ile önce sayfalarımın korumasını açıyor, sonra işlemimi yaptırıyor ve sonrada tekrar makro ile kilitliyorum. Fakat makrolar çalıştıktan sonra doğal olarak filtreleme işlemini yapamıyorum. 2. Makroda nasıl bir değişiklik yaparak filtreleme işlemine izin verebiliriz.

1. KOD(Kilit Açma) ActiveSheet.Unprotect
Range("B11:F65536,H11:H65536").Select
Selection.Locked = False
Selection.FormulaHidden = False
2.KOD(Kilitleme) Range("B11:F65536,H11:H65536").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect

 

[Zeki Gürsoy]

Sayfa korumalı olduğunda izin verilecek özellikler tanımlanır. Örneğin:

ActiveSheet.Protect "şifre", _
        DrawingObjects:=True, Contents:=True, Scenarios:=True, _
        AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowSorting:=True, [COLOR=Navy][B]AllowFiltering:=True[/B][/COLOR], _
        AllowUsingPivotTables:=True

 

[Orion1]

Arkadaşlar, forumda daha önce bulmuş olduğum 2 makro ile önce sayfalarımın korumasını açıyor, sonra işlemimi yaptırıyor ve sonrada tekrar makro ile kilitliyorum. Fakat makrolar çalıştıktan sonra doğal olarak filtreleme işlemini yapamıyorum. 2. Makroda nasıl bir değişiklik yaparak filtreleme işlemine izin verebiliriz.

1. KOD(Kilit Açma) ActiveSheet.Unprotect
Range("B11:F65536,H11:H65536").Select
Selection.Locked = False
Selection.FormulaHidden = False
2.KOD(Kilitleme) Range("B11:F65536,H11:H65536").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect

Aşağıdaki kod filtrelemeye izin verir.
Makro kaydetten sizde bulabilirdiniz.Böyle sıkıştığınız zamanlarda makro kaydete müracaat ediniz.

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

 

[akhsahbaz]

Arkadaşlar teşekkür ederim.