لتعطيل Alt + F4 استخدم الكود التالى
Sub My_Do()
Application.OnKey "%{F11}", ""
End Sub
و لاسترجاع الحاله استخدم الكود التالى
Sub My_UnDo()
Application.OnKey "%{F11}"
End Sub
مرفق ملف
Do.rar
بسم الله الرحمن الرحيم
شعور جميل , ربنا يكرمك
الجميع هنا يعمل لوجه الله , و لكن حق المنتدى ان لا تبخل بالمعلومه سواء الان او مقدما( ان شاء الله) فقد تكون المعلومه صغيره بالنسبه لك و اكنها قد تكون جديده لغيرك و لا تخجل ان اخطات فجميعنا نخطا و نصيب 0
السلام عليكم
بسم الله الرحمن الرحيم
معذره لقد اجبت و لم ارى الملف لظروف تحرير المشاركه
تعديل هايل الله يبارك لك
و لكن جرب الضغط على مفتاح اضافه صفحه جديده مره اخرى
السلام عليكم