اريد شرح لهذا الكود

[ابو محمد العربي]

بسم الله الرحمن الرحيم 

مديرى واعضاء منتدى اوفيسنا

تحيه طيبة وبعد

 

اريد شرح لهذا الكود وهل يؤتر لو غيرت فى اسماء Range

 

    

    Application.ScreenUpdating = False

       Sheets("تقارير").Select

        ActiveSheet.Unprotect

       Range("input").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _

        "cretiria1"), CopyToRange:=Range("output"), Unique:=False

    Application.ScreenUpdating = True

     تقبل تحياتى