الغاء حماية الورقة قبل التصفية التلقائية

[مصطفى محمود مصطفى]

السلام عليكم

كيف يمكن الغاء حماية الورقة قبل التصفية واعادة الحماية بعد الانتهاء من التصفية في هذا الكود

Sub tasfia()
'ActiveSheet.Unprotect
Application.ScreenUpdating = False
    Sheets("الدرجات").Range("A4:Q404").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("تصفية").Range("G3:H4"), CopyToRange:=Sheets("تصفية").Range("B6:Q406") _
        , Unique:=False
If ActiveSheet.FilterMode Then
        ActiveSheet.ShowAllData
                End If
[B7:O407].Interior.ColorIndex = xlNone
[B7:O413].AutoFilter Field:=4, Criteria1:="<>"
[B7].Select
Application.ScreenUpdating = True
End Sub

جزاكم الله خيرا

[بن علية حاجي]

السلام عليكم

جرب الكود التالي: 

Sub tasfia()
ActiveSheet.Unprotect Password:="Write here your password"
Application.ScreenUpdating = False
    Sheets("الدرجات").Range("A4:Q404").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("تصفية").Range("G3:H4"), CopyToRange:=Sheets("تصفية").Range("B6:Q406") _
        , Unique:=False
If ActiveSheet.FilterMode Then
        ActiveSheet.ShowAllData
                End If
[B7:O407].Interior.ColorIndex = xlNone
[B7:O413].AutoFilter Field:=4, Criteria1:="<>"
[B7].Select
Application.ScreenUpdating = True
ActiveSheet.Protect Password:="Write here your password"
End Sub

والله أعلم

[مصطفى محمود مصطفى]

السلام عليكم

ربنا يعطيك الصحة والعافية ويبارك بكم

حل ممتاز استاذ بن علية حاجي جزاكم الله خيرا