إجمالي مرات مشاهدة الصفحة

الجمعة، 29 أبريل 2016

إلغاء زر الإغلاق لتطبيق الإكسيل 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

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

هناك 4 تعليقات:

  1. السلام عليكم ورحمة الله وبركاته أعمالك تضع بها بصمتك لتكون مكتبة رائعة أخي الحبيب أبو البراء.
    جعل الله كل ذلك بميزان حسناتكم ...آمين.

    ردحذف
  2. وعليكم السلام أخي وحبيبي أبو يوسف
    بارك الله فيك وجزاك الله كل خير على متابعتك وتشجيعك الدائم لي

    ردحذف
  3. أزال المؤلف هذا التعليق.

    ردحذف
  4. استاذ ياسر
    عند الضفظ على رز الاغلاق يقوم باغلاق كافة ملفات اكسيل المفتوحة
    اريد اغلاق الملف المطلوب فقط
    بارك الله فيك

    ردحذف