اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

على الرابط

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

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

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

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

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

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


 

Protect & Unprotect All Sheets YasserKhalil V3.rar

رابط هذا التعليق
شارك

  • 4 months later...

أخي الكريم

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

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

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

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

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

 

رابط هذا التعليق
شارك

سيد ياسر خليل

بارك الله فيك

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

من داخل الكود 

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information