مشكله مع كود غلق الفورم

[محب لله ورسوله]

 السلام عليكم ورحمة الله وبركاته ... الإخوه الكرام .. وضعت هذا الكود لالغاء زر اغلاق الفورم

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True
End Sub

ولكن بعد ذلك وعند فتح الملف يتم فتح الفورم وراءه ملف الاكسيل ..ولا استطيع غلق الفوم او التعديل على الشيت

فماذا أفعل لحل هذه المشكلة..وهل هناك طريقة اقوم فيها بفتح الملف للتعديل على اكواد الفورم بدون فتح الفورم..جزاكم الله خيرا

 

[أ / محمد صالح]

قبل ما تحضر العفريت تعرف ازاي هتصرفه يا صديقي @محب لله ورسوله

في مثل هذه الحالة يجب وضع زر لإغلاف النموذج أو أي شيء يجعل المتغير C قيمته تساوي true

ويكون هذا كود الزر مع كود إلغاء الإغلاق

Dim c As Boolean
Private Sub CommandButton1_Click()
c = True: Unload Me
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If Not c Then Cancel = True
End Sub

لاحظ الإعلان عن متغير c أعلى كل الأكواد

عند الضغط على الزر غير قيمته ل true

تم تغيير عدم الإغلاق إذا لم تكن قيمة c تساوي true

بالتوفيق 

[محب لله ورسوله]

للأسف غشيم أعمل ايه يااستاذنا@أ / محمد صالح

الحل دلوقتى ازاى اقدر افتح اكواد الملف علشان اقدر اعدل عليها

ولا كده مفيش ليها حل ؟

[أ / محمد صالح]

لا يحدث هذا إلا إذا جعلت النموذج يظهر عند فتح المصنف 

لحل هذه المشكلة:

* إذا كان الملف مفتوحا يجب إنهاء مهمة الإكسل كله لغلق الملف كلك يمين على شربط المهام ثم task manager مدير المهام

* افتح اكسل وأنشئ مصنفا جديدا أو افتح مصنفا تملك الدخول إلى أكواده

* افتح نافذة محرر الفيجوال بيسك alt+f11

* افتح الملف صاحب المشكلة ثم توجه إلى نافذة الفيجوال:

alt+tab والوصول للملف المسموح للوصول لنافذة الفيجوال بيسك

أو الوقوف بمؤشر الفارة على زر اكسل في شريط المهام ثم اختيار نافذة الفيجوال بيسك

* وهناك تضغط على اسم الملف صاحب المشكلة في أعلى يسار النافذة لترى أكواده وتعدل عليها

بالتوفيق 

 

[محب لله ورسوله]

جزاك الله خيرا يااستاذنا @أ / محمد صالح

تم فتح الملف والحمد لله

[أ / محمد صالح]

جميعا بإذن الله

✌👍