Image مشكلة إختفاء التاب في الإكسيل

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

سال احد الأخوة في الفيس بوك عن مشكلة تواجهه و هي إختفاء و ظهور الـ Sheet Tabs
و للأسف أن أحد أسباب هذه المشكلة هو قيام بعض الأخوة بإخفاء هذه التاب عندما تعمل برامجهم, و لا يقومون بإعادتها كما كانت عند إلاق برامجهم, فالأصل في أي عمل برمجي أن تعيد جميع الإعدادات كما كانت قبل التعديل عليها.
و لكي تكون الصورة أوضح لما أعنيه, في هذه الصورة الوضع الطبيعي في الإكسيل أن تظهر أسماء الصفحات بجاانب بعضها البعض .

فا أسماء الصفحات ظاهره , و لكن المشكلة التي نتحدث عنها هي أن هذه التابات تختفي 
فيصبح الشكل كالتالي : 

فالصورتين أعلاه لنفس الملف 

فإذا واجهتنا هذه المشكلة يوجد أكثر من طريقة للحل 
الطريقة الأولى : أن تقوم بإعادة تفعيل الأمر لاخاص بعرض التابات يدوياً بإتباع الخطوات التالية  : 
من File 
نختار 
Options

ثم من شاشة الخيارت التي ستظهر لنا نختار Advanced 

ثم من ضمن المجموعة 
Display Options for this workbook 
نضع علامة صح على الخيار 
Show Sheets Tab

و بذلك ستظهر التابات مجددا 

الطريقة الثانية : أن تستخدم الكود البرمجي التالي ( و يا حبذا لو ان الأخوة المبرمجين أن يقوموا بوضعه في حدث BeforeClose  ) حتى نضمن أن تعود الإعدادات كما كانت.
و هذا هو الكود 

ActiveWindow.DisplayWorkbookTabs = True

و هنا يتم وضع الكود في حالة الخروج من البرنامج 

أتمنى أن تكون الفكرة واضحة 

دمتم في حفظ الله 

يحيى حسين 
Excel MVP