السلام عليكم
هذا الكود يمكن ان أسميه فخ أو لغم
من المعلوم أن هناك برامج لفك حماية الشيتات لا نستطيع مقاومتها أومنعها من كسر الحماية
والمستخدم يقوم بكسر حماية الشيت للحصول على المعلومات السرية داخل البرنامج (معادلات ـ أعمدة مخفية .....الخ)
إذا منعنا المستخدم من الحصول على هذه المعلومات السرية فنكون قد حققنا الهدف
يبدأ عمل الكود من حدث الصفحة SELLECTION CHANGE ثم ينتقل إلى الإجراء booom
وهو يقوم بحذف أوراق محددة عندما يتم فك حماية الورقة (الشيت) والنقر على أي خليه فيها
ولكن
أخي ياسر , شكرا على الإضافة الجميلة التي أضفتها على الكود
رائع جدا ويخدم المطلوب
والمجال مفتوح للأخوة الأعضاء لإضافة ما يرونه مناسبا
أربع أيام أفكر كيف سأخبر السيد إكسل إن الحماية تم فكها إلى أن وجدت الطريقة
هذا السطر
Range("XFD1") = "x"
مع أنه بسيط ولكنه القشة التي قصمت ظهر البعير
بارك الله فيك
كن ذا همة تصل للقمة
تم التعديل على الملف
abo eed file1.rar