كيف اجعل التصفيه والفرز تعمل والصفحه محميه

[atob]

السلام عليكم ورحمه الله وبركاته

لدي ملف وفيه كود يقوم بفرز وتصفيه بيانات جدول في صفحه اخرى ويعمل بشكل سليم

ولكن عند حمايه الصفحه لا يعمل الكود الخاص بالتصفيه والفرز فما هو الحل

واشكركم جزيل الشكر

[بيسان]

السلام عليكم

تفضل يا اخي ... الحل هنا والفضل بعد الله للأخ ابو انس

http://www.officena.net/ib/index.php?showtopic=44031

[يوسف عطا]

يمكنك عمل ماكرو يتم فى بدايته فك الحماية ثم الفرز والتصفية ثم إعادة الحماية مرة أخرى

[الشهابي]

أحي العزيز / atob

حسب ما أشار إليه أستاذنا القدير يوسف عطا

ضع السطر الأول في بداية الكود والسطر الثاني في نهاية الكود على اعتبار أن كلمة حماية الورقة هي " 123" يمكنك أن تضع كلمة حماية أخرى بين علامة التنصيص كما تحب

قتصبح هي كلمة الحماية للورقة

فلو أردت مثلا أن تلغي الحماية سيطالبك بنفس هذه الكلمة التي وضعتها في الكود

وهذين هما السطرين

ActiveSheet.Unprotect "123"

ActiveSheet.protect "123"

والعفو

[احمدزمان]

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

اخي الفاضل السائل

اسهل طريقة هي ماذكرها اخواني الأفاضل يوسف عطا و الشهابي

وايضا

يوجد طريقة اخرى سبق وان ذكرها الأستاذ الفاضل ابوتامر الله يجزاه بكل خير

حيث اضاف عبارة الى كود الحماية تحتوي على

User Inter Face Only = True

وبموجبها يعمل اي كود بدون الغاء الحماية

ولكن

أنا شخصيا حاولت تطبيقها على بعض ملفاتي ولم انجح

حيث لها شروط محددة لم استطيع ان الم بها

على ايحال ممكن تراجع ذلك ضمن مواضيع الأستاذ الفاضل و المبدع ابو تامر

تحياتي وتقديري

[يوسف عطا]

ولإثراء الموضوع يمكن غستخدام السطرين التاليين الاول يوضع فى بداية الكود والثانى فى نهايته

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

    ActiveSheet.Unprotect

على اساس ان لا يطلب منك وضع باسوورد فلعلك لا تريد لمن يستخدم الكود ان يضع باسوورد