إلغاء زر الإغلاق لتطبيق الإكسيل Disable Application Close Button

السلام عليكم ورحمة الله وبركاته

أقدم لكم كود يقوم بتعطيل زر الإغلاق في تطبيق الإكسيل كما يقوم بتعطيل الإغلاق من قائمة File ، حيث يمكنك إجبار المستخدم على استخدام زر أمر تقوم بتعيين الكود له.

الفكرة من الكود إجبار المستخدم على عدم استخدام زر الإغلاق في تطبيق الإكسيل ، وتعيين زر أمر في ورقة العمل أو زر أمر في الفورم ليقوم بمهمة الإغلاق

وها هو الكود المستخدم ، حيث يوضع الكود التالي في موديول عادي ، يتم تعيين الإجراء الفرعي المسمى CloseMe لزر الأمر

Public CloseMode As Boolean

Sub CloseMe()
    CloseMode = True
    ThisWorkbook.Save
    Application.Quit
End Sub

ويوضع الكود التالي في حدث المصنف

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not CloseMode Then
        Cancel = True
        MsgBox "Please Use The button To Close This File"
    End If
End Sub

تحميل الملف من هنا

إعداد / ياسر خليل أبو البراء