طلب كود لعمل حماية لصفحة بالملف مع تمكين ( الفلترة والجروب ) من الكود

[أبو العاصم]

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

قام الاخ المبدع دائما ياسر خليل بعمل موضوع بعنوان

حماية كافة أوراق العمل وإلغاء الحماية & الحماية بمجرد تنشيط ورقة العمل

على الرابط

http://www.officena.net/ib/index.php?showtopic=61654&page=1

المطلوب له علاقه بموضوع الاخ ياسر خليل

وهو عمل كود فى حدث صفحة معينة لعمل حماية لخلايا الصفحة فقط وليس كل المجلد

مع تمكين ( خاصية الفلترة وخاصية الجروب والانجروب ) من داخل الكود

المرفق ملف الزعيم ياسر خليل

الرجاء تعديله للوصول للمطلوب

 

Protect & Unprotect All Sheets YasserKhalil V3.rar

[ياسر خليل أبو البراء]

أخي الكريم

يمكنك الاستغناء عن الأكواد الموجودة في حدث المصنف لأنها تتعامل مع جميع أوراق العمل

وكذلك الإجراءات المرتبطة بها

هذا الكود فقط يؤدي الغرض ..

Sub ProtectActiveSheet()
'يقوم الكود بحماية ورقة العمل النشطة
'-----------------------------------
    With ActiveSheet
        .Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
        .EnableOutlining = True
    End With
End Sub

استبدل كلمة ActiveSheet باسم ورقة العمل المراد حمايتها ..

 

[أناناس]

سيد ياسر خليل

بارك الله فيك

ما أريده هو إستثناء الاوتوفيلتر عند عمل الحماية للصفحة

من داخل الكود 

أى أبحث عن كود يوفر لى خاصية الأوتوفيلتر ( إلغاء جميع الفلترة عن طريق الكأس ذو العلامة الحمراء :( ) عند عمل الحماية