لماذا تتعارض حماية مصنف مع التصفية؟

[عبدالعزيز محمد]

السلام عليكم ورحمة الله

لقد استفدت كثيرا من المنتدى

لماذا لا تتوافق التصفية مع حماية المصنف؟؟؟

فعند حماية المصنف لا يعود بمقدورنا التصفية فكيف يمكننا حماية المصنف مع التصفية فأحيانا نحتاج لماية المصنف مع وجود التصفية فكيف يمكننا عمل ذلك ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ظ

[خالد الشاعر]

عند عمل حماية يوجد اختيارات فى الحماية

اختار منهم sort

سوف يعمل معك التصفية

[عبدالعزيز محمد]

شكرا على الرد

ولكن التصفية لا تعمل بوجود حماية الورقة وقد اخترت من خيارات التصفية خيار الفرز والتصفية التلقائية ولكن زر التصفية غير مفعل بعد حماية الورقة

[نبيل عبد الهادي]

اذا كنت تقصد حماية الورقة وليس المصنف ويمكن عمل ذلك التوافق من خلال الاكواد في المثال ادناه :

 - الكود الاول تصفية مع وجود الحماية ضمن عمود ونطاق معين ومعيار التصفية هنا الحرف (A)

 - الكود الثاني الغاء التصفية بوجود الحماية

 - نضع سطر  الغاء الحماية في بداية الكود

  - ونضع سطر تفعيل الحماية في نهاية الكود

     - وعلى افتراض ان الباسورد هنا 123

Sub Worksheet_Protection_Filter()
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="123"
    Columns("H:H").Select
    Selection.AutoFilter
    ActiveSheet.Range("$H$1:$H$18").AutoFilter Field:=1, Criteria1:="A"
    Range("H1").Select
        ActiveSheet.Protect Password:="123"
End Sub
Sub Cancel_filter()
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="123"
 Cells.Select
    ActiveSheet.ShowAllData
    ActiveSheet.Protect Password:="123"
End Sub

 

 

file all.xlsm