عدم تفعيل الماكرو مع ورقة محمية

[اصابة السهم]

بسم الله الرحمن الرحيم

الاخوة الكرام

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

وكل عام وانتم بخير

اود ان اشكركم على المجهود المبذول في هذا الصرح المميز

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

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

Run-time error 1004

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

رابط الملف

http://vb.market-eyes.com/PROG/testm.rar

تحياتي لكم جميعا

[هيثم مقبول]

سيدي الفاضل الماكرو بيبحث داخل الشيت في الفلترة لإجراء عملية التصفية

فهذا العمل لاينفذ داخل الشيت المحمي ولكن ان كان الماكروانتقال الي شيت اخر ينفذ

والله اعلم وانا طالب علم ولااتعدي علي عمالقة هذا المنتدي

الذين هم اساتذتي ومعلمي

وشكراً

اخيك / هيثم

[اصابة السهم]

شكرا اخي هيثم على مداخلتك

وسؤالي عن الوضع القائم حاليا في الملف باستخدام الماكرو بهذه الكيفية في عملية فرز داخل ورقة محمية

وفي انتظار الرد من عمالقة المنتدى

تحياتي

[الـعيدروس]

السلام عليكم

استخدم هذه الاوامر

هذا السطر في اول الكود

فرضا اسم الورقة "ورقة1"

وباسورد الحماية "123"

إلغاء الحماية

ورقة1.Unprotect Password:="123"

وهذا السطر في اخر الكود لإسترجاع حماية الورقة

ورقة1.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True

تم تعديل سبتمبر 2, 2012 بواسطه عباد

[اصابة السهم]

السلام عليكم

ابو نصار اشكرك على ابداعك تم عمل الخطوات ومشي الحال بفضل الله

تحياتي لك

[هيثم مقبول]

السلام عليكم

شكراً استاذي الاستاذ / عباد

تقبل تحياتي

========

[هاني عدلي]

تحياتي لك أستاذنا المبدع دائماً

الأستـــــــــــــــاذ / أبو نصار

جزاك الله خيراً

:clapping:

[m_ahmed]

الاخ الحبيب ابو نصار شكرا علي هذه المعلومه القيمه ولكن حين جربتها وصلت الي الاكواد الاتيه لان الاكواد الاولي لم تعمل بشكل كامل معي

لو كانت كلمت السر 123 يكون الكود كالاتي:

ActiveSheet.Unprotect Password:="123"

البرنامج

ثم

ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True