السلام عليكم ورحمة الله وبركاته
اخى العزيز خبور جزاك الله خيرا على مجهودك وأشكرك على كلماتك الطيبة جمعنا الله فى جنة الخلد جميعا إن شاء الله
وقد تم التعديل كما أردت
بالنسبة لجعل المستخدم لا يستطيع غلق user form الشاشة الافتتاحية من زرx تستطيع ان تفعل ذلك عن طريق التحكم فى حدث QueryClose فى User Form وذلك عند حدوث الحدث
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseModel = vbFormControlMenu Then
MsgBox " عفـوا أدخل كلمة السر اولا وقم بالدخول بطريقة شرعية", vbMsgBoxRight, "تحذير"
Cancel = True
End If
End Sub
وهذا الكود يحتوى على معاملين معامل closeMode قيمة تشير الى السبب فى الحدثQueryClose اذا كانcloseMode مساويا ل vbFormControlMenue(ثابت مضمن) فهذا يعنى ان المستخدم قد نقر فوق زر الاغلاق فى هذه الحالة تظهر رسالة التحذير ويتم ظبط معامل Cancel على True ولا يغلق النموذج بالفعل
كما سترى فى الملف المرفق
وتقبل تحياتى
__________________________1.rar