بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد وكود جديد من مكتبة اكواد اكسيل 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
كود رائع
وممتاز للرائع الاستاذ ياسر خليل اتمنى ان ينال اعجابكم ويفيدكم فى عملكم