كود عند فتح الاكسل وظهور الفورم يخفي Worksheets النشط فقط

[أبو قاسم]

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

عندي كود وهو عند فتح الاكسل يظهر الفورم ويخفي الاكسل (Application.Visible = False) محتاجة فقط يخفي Worksheets  الذي فتحتة فقط 

لانة الان يخفي كل  Worksheets المفتوحة سابقا ولا استطيع فتح اي اكسل من اجل العمل علية الا اذا اغلقت الفورم 

هل يوجد حل ارجو المساعدة شاكراً لكم تعاونكم 

 

 

 

 

[أبو قاسم]

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

[أبو قاسم]

للرفع

[ابراهيم الحداد]

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

انسخ هذا الكود و الصقه فى  thisworkbook

Private Sub Workbook_Open()
ActiveSheet.Visible = False
UserForm1.Show
End Sub

 

[أبو قاسم]

11 ساعات مضت, زيزو العجوز said:

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

انسخ هذا الكود و الصقه فى  thisworkbook

Private Sub Workbook_Open()
ActiveSheet.Visible = False
UserForm1.Show
End Sub

 

شكرا لك وجزاك الله خير