كيفية اجراء تصفية تلقائية وفى نفس الوقت الورقة محمية

[asd101960]

عندى ملف يحتوى على عدة اعمدة العمود الاول به ارقام الجلوس والعمود الثانى به اسماء الطلاب وليكن الف طالب وباقى الاعمدة عبارة عن درجات المواد

اريد عمل تصفية تلقائية لعمود الاسم حتى اتمكن من البحث عن اسم الطالب أى طالب

وفى نفس الوقت اريد ان تكون الخلايا او الورقة محمية بحيث لايمكن تغيير اى قيمة بها

فهل اجد عند أعضاء هذا المنتدى حل لهذه المشكلة

لأنى عندما اقوم بعمل تصفية والورقة محمية لاتستجيب لأى اجراء

[علي السحيب]

يمكنك تفعيل خاصية التصفية التلقائية والصفحة محمية من خلال النافذة الخاصة بوضع كلمة المرور ..

حيث أن هناك عدة خيارات أسفل الحقل الخاص بوضع كلمة المرور .. وهذه الخيارات تشتمل على عدة خصائص تكون معطلة عندما تكون الصفحة محمية .. وعند رغبة المستخدم في حماية الصفحة مع تفعيل بعض تلك الخيارات .. يقوم بوضع علامة صح في المربع الموجود بجانب أي منهم.

ومن تلك الخصائص Auto Filter (تصفية تلقائية) .. فقم بوضع علامة صح في المربع الموجود بجانبه.

وبهذا تصبح خاصية التصفية التلقائية تعمل لديك والصفحة محمية.

أمار إذا كانت الصفحة التي لديك محمية ولا تعرف كلمة المرور الخاصة بها .. فالحل في هذه الحالة يأتي عن طريق تطبيقات الفيجوال بيسك:

فيتم استخدام الكود التالي لتفعيل خاصية التصفية التلقائية والصفحة محمية .. وهو يقوم بإلغاء كلمة المرور نهائياً ووضع كلمة مرور فارغة بدلاً عنها:

Sub EnableAutoFilter()
ActiveSheet.Protect AllowFiltering:=True
End Sub

ويتم استخدام الكود التالي لإلغاء خاصية التصفية التلقائية والصفحة محمية:

Sub DisableAutoFilter()
ActiveSheet.Protect AllowFiltering:=False
End Sub

كما يمكنك تفعيل خاصية التصفية التلقائية ووضع كلمة مرور جديدة عن طريق إستخدام الكود التالي:

Sub EnableAutoFilterPassword()
ActiveSheet.Protect Password:="ali", AllowFiltering:=True
End Sub

وأيضاً يمكنك إلغاء خاصية التصفية التلقائية ووضع كلمة مرور جديدة عن طريق إستخدام الكود التالي:

Sub DisableAutoFilterPassword()
ActiveSheet.Protect Password:="ali", AllowFiltering:=False
End Sub

والمرفق التالي به مثال على كلتا الحالتين،

__________________________________________________.rar

تم تعديل يوليو 23, 2006 بواسطه علي السحيب

[abbermustfa]

أخي

أشكرك على سرعة ودقة إجابتك

حياك الله وبياك

[abbermustfa]

ياسلام ياعم علي

لو تحط شوية شرح مع ملفاتك تصبح مرجعا للمبتديء والمتقدم

تم تعديل يوليو 24, 2006 بواسطه abbermustfa

[علي السحيب]

أعتذر لأن ليس دائماً لدي الوقت الكافي لإيجاد الحلول وشرح طريقة تطبيقها.

تم تعديل يوليو 24, 2006 بواسطه علي السحيب

[asd101960]

استاذنا الفاضل / على السحيب

اشكرك كثيرا على معلوماتك القيمة المفيدة

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