-->

اكسيل VBA | تعطيل زر الاغلاق فى ملف الاكسيل


بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد وكود جديد من مكتبة اكواد اكسيل VBA

 اكسيل  | تعطيل زر الاغلاق فى ملف الاكسيل 


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






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


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

Public CloseMode As Boolean

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

ويتم وضع الكود التالي في حدث المصنف قبل الاغلاق Before close


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

كود رائع وممتاز للرائع الاستاذ ياسر خليل اتمنى ان ينال اعجابكم ويفيدكم فى عملكم


Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

  1. شكرا جزيلا للتلبية الرائعه

    ردحذف
  2. استاذنا العزيز اريد معرفة كيف اعمل فورم من خلالة ادخل البيانات الى عدة جداول في شيت واحد وكل جدول متغير العناوين من فضلكم

    ردحذف