السلام عليكم
هذا الكود يمكن ان أسميه فخ أو لغم
من المعلوم أن هناك برامج لفك حماية الشيتات لا نستطيع مقاومتها أومنعها من كسر الحماية
والمستخدم يقوم بكسر حماية الشيت للحصول على المعلومات السرية داخل البرنامج (معادلات ـ أعمدة مخفية .....الخ)
إذا منعنا المستخدم من الحصول على هذه المعلومات السرية فنكون قد حققنا الهدف
يبدأ عمل الكود من حدث الصفحة SELLECTION CHANGE ثم ينتقل إلى الإجراء booom
وهو يقوم بحذف أوراق محددة عندما يتم فك حماية الورقة (الشيت) والنقر على أي خليه فيها
ولكن انتبه : فيمكن أن يكون المبرمج نفسه هو ضحية لهذا الكود
(كما حصل لي شخصيا أثناء العمل على هذا المرفق)
إذا عاود المبرمج فك حماية الصفحة لتعديل أي معادلة مثلا وتحديد أي خلية سينفجر اللغم وتحذف الأوراق تلقائيا ويقفل البرنامج
لذا بعد الانتهاء من عمل أي برنامج وبعد حماية الصفحات يتم وضع هذا الكود
فإذا اراد المبرمج في وقت لاحق فك الحماية على الصفحة للتعديل عليها فيجب قبل ذلك الذهاب لمحرر الفيجوال والدخول على الماكرو booom وتعليق السطر الآتي
' Sheets(Array(1, 3, 4)).Delete
لأنه المسؤول عن حذف الأوراق (الأولى والثالثة والرابعة)
تفضلوا المرفق والشرح داخل الكود
abo eed file.rar