كود التصفية مع وجود حماية

[abdelwanis]

 عند الضغط على زر أكبر أو زر اصغر تظهر لى رسالة خطأ 1004

التصفية .xlsm

[سليم حاصبيا]

جرب الان

 

التصفية Salim.xlsm

[abdelwanis]

  تسلم أيدك يا كبير طيب حضرتك ممكن تجرب تانى كدا مع كلمة السر abdo4التصفية .xlsm 

تم تعديل فبراير 13, 2018 بواسطه abdelwanis

[abdelwanis]

 

تسلم أيدك يا كبير 

[سليم حاصبيا]

يجب قبل التصفية   ازالة الحماية  ثم التصفية  ثم  اعادة الحماية

Sub Macro1()

ActiveSheet.Unprotect Password:="abdo4"
    ActiveSheet.ListObjects("الجدول1").Range.AutoFilter Field:=1, Criteria1:= _
        "أكبر"
ActiveSheet.Protect Password:="abdo4"
End Sub
'=============================================
Sub Macro2()

ActiveSheet.Unprotect Password:="abdo4"
    ActiveSheet.ListObjects("الجدول1").Range.AutoFilter Field:=1, Criteria1:= _
        "أقل"
    ActiveSheet.Protect Password:="abdo4"
End Sub

 

[abdelwanis]

 

ممكن حضرتك تجرب مع كلمة السر 

التصفية .xlsm