ا / عبد الله
رائع جدا و لكن لاتمام الحماية يوجد كود اعتقد هو للاستاذ / ابراهيم ابو ليلة او الاستاذ / ياسر خليل
و هو خاص بعد فتح ملف الاكسيل فى حالة تعطيل الماكرو
ارجو من سيادتك ادماجه مع الكود السابق لتكون حماية كاملة
اعتقد انه احد الكودين التالين او احدهما الله اعلم
Private Sub Workbook_BeforeClose(Cancel As Boolean)
kh_wVisible False
ThisWorkbook.Close Not CBool(ThisWorkbook.Saved)
End Sub
Private Sub Workbook_Open()
Application.Visible = False
kh_AhlnWShln
End Sub