فتح فورم

[mohamedyousef]

السلام عليكم الاخوة الافاضل عندي مشكلة مش عارف حلها عملت كل حاجة وبتفشل انا عندي فورم لملف اكسل ومصمم فيه انه عند الفتح يغلق ملف الاكسل ويفتح فورم رقم 1 هو تمام شغال ولكن اول ما يفتح الفورم مقدرش افتح اي ملف اكسل تاني غيرت في اكواد فتح البرنامج ولما فتحت ملف اخر عند الاغلاق يغلق الملف ويفتح الملف الاساسي اللي مصمم عليه الفورم بدون ان اطلب فتحه حاولت كتير مش قادر اوصله ممكن المساعدة 

[عبدالله بشير عبدالله]

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

لم توضح لنا ما هي الاكواد التي جربتها ولم تنجح لكي لا تكررها

اذا كان السطر Application.Visible = False موجود ضمن الكود فهذا السطر يخفي برنامج إكسل من الجذور، مما يجعل أي ملف إكسل آخر تفتحه مخفياً أو غير قابل للوصول

ويمكن استبدالها   ThisWorkbook.Windows(1).Visible = False  

 كذلك يكون الفورم  vbModeless

ضع الكودين  في ThisWorkbook

Private Sub Workbook_Open()
    UserForm1.Show vbModeless
    ThisWorkbook.Windows(1).Visible = False
End Sub

وع

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

 

تم تعديل منذ 4 ساعات بواسطه عبدالله بشير عبدالله

[mohamedyousef]

استاذي الكود تمام بس في حاجة انا عايز لما افتح الفورم الغي الشاشة الزرقاء اللي بتكون خلف الفورم الخاصة بالاكسل عايز الفورم فقط هو اللي ظاهر وكمان عند فتح اي ملف اخر بيكون الفورم فوق الملف