اصابة السهم قام بنشر سبتمبر 1, 2012 قام بنشر سبتمبر 1, 2012 بسم الله الرحمن الرحيم الاخوة الكرام السلام عليكم ورحمة الله وبركاته وكل عام وانتم بخير اود ان اشكركم على المجهود المبذول في هذا الصرح المميز استفساري هو ما يلي وكلي ثقة في الله ثم في عمالقة هذا الصرح أنني سوف اجد حلا لهذا الامر قمت بعمل ملف اكسل وقمت بعمل ماكرو معين ثم قمت بحماية الورقة التي يعمل بها الماكرو وللاسف عند القيام بتنفيذ الماكرو يعطني رسالة خطأ Run-time error 1004 ومكتوب لا يمكن استخدام هذا الامر على ورقة محمية ومرفق صورة من رسالة الخطا ومرفق ايضا الملف رابط الملف http://vb.market-eyes.com/PROG/testm.rar تحياتي لكم جميعا
هيثم مقبول قام بنشر سبتمبر 1, 2012 قام بنشر سبتمبر 1, 2012 سيدي الفاضل الماكرو بيبحث داخل الشيت في الفلترة لإجراء عملية التصفية فهذا العمل لاينفذ داخل الشيت المحمي ولكن ان كان الماكروانتقال الي شيت اخر ينفذ والله اعلم وانا طالب علم ولااتعدي علي عمالقة هذا المنتدي الذين هم اساتذتي ومعلمي وشكراً اخيك / هيثم
اصابة السهم قام بنشر سبتمبر 1, 2012 الكاتب قام بنشر سبتمبر 1, 2012 شكرا اخي هيثم على مداخلتك وسؤالي عن الوضع القائم حاليا في الملف باستخدام الماكرو بهذه الكيفية في عملية فرز داخل ورقة محمية وفي انتظار الرد من عمالقة المنتدى تحياتي
الـعيدروس قام بنشر سبتمبر 2, 2012 قام بنشر سبتمبر 2, 2012 (معدل) السلام عليكم استخدم هذه الاوامر هذا السطر في اول الكود فرضا اسم الورقة "ورقة1" وباسورد الحماية "123" إلغاء الحماية ورقة1.Unprotect Password:="123" وهذا السطر في اخر الكود لإسترجاع حماية الورقة ورقة1.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True تم تعديل سبتمبر 2, 2012 بواسطه عباد 3
اصابة السهم قام بنشر سبتمبر 2, 2012 الكاتب قام بنشر سبتمبر 2, 2012 السلام عليكم ابو نصار اشكرك على ابداعك تم عمل الخطوات ومشي الحال بفضل الله تحياتي لك
هيثم مقبول قام بنشر سبتمبر 2, 2012 قام بنشر سبتمبر 2, 2012 السلام عليكم شكراً استاذي الاستاذ / عباد تقبل تحياتي ========
هاني عدلي قام بنشر سبتمبر 2, 2012 قام بنشر سبتمبر 2, 2012 تحياتي لك أستاذنا المبدع دائماً الأستـــــــــــــــاذ / أبو نصار جزاك الله خيراً :clapping:
m_ahmed قام بنشر أكتوبر 10, 2012 قام بنشر أكتوبر 10, 2012 الاخ الحبيب ابو نصار شكرا علي هذه المعلومه القيمه ولكن حين جربتها وصلت الي الاكواد الاتيه لان الاكواد الاولي لم تعمل بشكل كامل معي لو كانت كلمت السر 123 يكون الكود كالاتي: ActiveSheet.Unprotect Password:="123" البرنامج ثم ActiveSheet.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.