مصطفى محمود مصطفى قام بنشر ديسمبر 19, 2017 مشاركة قام بنشر ديسمبر 19, 2017 السلام عليكم كيف يمكن الغاء حماية الورقة قبل التصفية واعادة الحماية بعد الانتهاء من التصفية في هذا الكود 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 جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر ديسمبر 19, 2017 مشاركة قام بنشر ديسمبر 19, 2017 السلام عليكم جرب الكود التالي: 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 والله أعلم 1 رابط هذا التعليق شارك More sharing options...
مصطفى محمود مصطفى قام بنشر ديسمبر 19, 2017 الكاتب مشاركة قام بنشر ديسمبر 19, 2017 السلام عليكم ربنا يعطيك الصحة والعافية ويبارك بكم حل ممتاز استاذ بن علية حاجي جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان