كيف يتم اغلاق الاكسل(Excel.exe )المخفي برمجيا قبل فتح البرنامج

[الفدائي]

الاخوة الأعزاء كدت انتهي من برنامجي الذي كنت أعمل عليه بمساعدة مجموعة من الاخوة وعلى رأسهم ALIDROOS ( أبو نصار )

والأخ عبد الله المجرب وطارق جزاهم الله الف خير - في المواضيع التالية :

http://www.officena....03

http://www.officena....58

http://www.officena....38

http://www.officena....05

http://www.officena....20

________________________________________

وأنا على مشارف انهاء البرنامج واجهتني مشكلة وهى أنه في حالة حدوث أي اغلاق مفاجئ أو غير طبعي للبرنامج يظل Excel.exe

يعمل في الخلفية وعند فتح البرنامج مرة أخري يواجه مشكلة بسبب البروسيس المفتوحة - أريد أن اضع كود يعمل فحص اذا كانت هناك

أي بروسيس مفتوحة يقوم باظهار رسالة ثم يقتلها Kill Process أو يفتح طبيعيا ان لم يوجد شئ

- واظنه يكون في حدث التحميل Load للفورم الرئيسي

بحثت ووجدت مثل هذا الكود لكنه لا يعطي رسالة واحيانا يعطي خطأ :

Sub Close_Excel()

Dim strClsExl As String

strClsExl = "TASKKILL /F /IM Excel.exe"

Shell strClsExl, vbHide

End Sub

فهل من اقتراح للتعديل على الكود أو اضافة اي جديد ؟

بارك الله فيكم

__________

أخوكم الفدائي

تم تعديل يناير 5, 2012 بواسطه Alfidai