طلب المساعدة فى كود الفتح والاغلاق

[Muhamedgamil9969]

السلام عليكم ورحمة الله 

برجاء مساعدتى فى الاتى : 

1- لدى ملف اسمه  Software.xlsm .. به فورم واجهة عند التشغيل يختفى التطبيق ويظهر فقط الفورم باستخدام الكود التالى :

ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"
Application.ActiveWindow.DisplayWorkbookTabs = False
Application.EnableCancelKey = xlDisabled
Application.Visible = False
userform0.show

 أريد الكود الافضل من حيث اخفاء هذا الشيت فقط حيث عند استخدام الفورم لا استطيع فتح أى ملف اكسل أخر 

2- كود الاغلاق مستخدما الكود التالى :

 Application.ThisWorkbook.Save
Application.Visible = False
ThisWorkbook.Close
Application.Quit
End

فى بعض الاحيان بعد الاغلاق يظل التطبيق يعمل فى الخلفية .. يظهر عند فتح أى ملف أكسل أخر ؛ ألاحظ ظهور الملف Software معه 

برجاء المساعدة .... آسف على الاطالة 

[طلعت محمد حسن]

السلام عليكم

اخي الكريم شاهد المرفق هل هذا ما تقصدة

فتح ملف اكسل من خلال الفورم.rar

[Muhamedgamil9969]

عليكم السلام ورحمه الله 

أشكرك أخى على تجاوبك معى 

ولكن ليس المقصود فتح ملف اكسل من الفورم 

** عند استخدام ملف Software.xlsm لا استطيع تشغيل أى ملف أكسل أخر حيث اننى استخدم فى ملف Software كود Application.visible = True 

لذلك عند محاولة فتح أى ملف أخر لا يفتح معى . 

 

[طلعت محمد حسن]

السلام عليكم

اخي الكريم قصدك تريد فتح ملف اكسل اخر اثناء وجود الفورم على الشاشة

[Muhamedgamil9969]

عليكم السلام ورحمه الله 

أشكرك أخى على تجاوبك معى 

نعم أخى هذا ما أقصده 

أريد التعامل مع اى ملف أكسل أخر بطريقة اعتيادية أثناء وجود الفورم الخاص بالملف Software  على الشاشة 

طبعا الاكسل لا يقبل معى فتح أى ملف أكسل آخر لأنى أستخدم كود Application.visible=false لذا لا يمكننى فتح أى ملف أخر أثناء عمل الفورم 

وحاولت تكرارا بكود Thisworkbook.visible=false وأيضا بكود Window("Software.xlsm").visible=false ولكن كل المحاولات باءت بالفشل 

آسف على الاطالة

 

[إبراهيم ابوليله]

فقط قم باضافة الرقم 0 بجوار

كود استدعاء الفورم

مثلال

 USERFORM1.SHOW 0

جرب ذلك