السلام عليكم
الاخ الكريم / ahmed elzaiady
بارك الله فيك
بعد اذن الاخوة الكرام ... برغم انني معجب بانهم يقومون بتوصيلك للمعلومة بنفسك لتنفيذها بنفسك انت
برغم قدرتهم علي تنفيذها لك ... فهي افضل طريقة للتعلم وتوصيل المعلومه ...
الاخ الحبيب / أبوعيد ... جزاه الله خيرا
الاخ الحبيب / إسلام الشيمي .... جزاه الله خيرا
وبعد ان رأيت انك ايضا فعلتها بنفسك وقمت بتسجيل الماكرو الذي تحتاج اليه
يمكنك تنفيذ ما تريد وعلي حسب الكود الموجود في ملفك بتعديل السطر التالي ( وهو السطر قبل الأخير في الكود )
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
الي السطر التالي حتي تصبح لديك كلمة سر لفتح حماية الشيت ( كما تريد علي حسب فهمي لطلبك )
ActiveSheet.Protect (1)
تقبلوا خالص تحياتي
New Microsoft Office Excel Worksheet-ss.rar