طلب كود vba إخفاء أسماء الشيتات من شريط الاكسيل والبقاء على الرئيسية

[محمد هشام.]

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

[مهند محسن]

تجنباً لإهدار وقت الأساتذة وبما انه لا يمكن العمل على التخمين فلابد من رفع ملف موضح فيه المطلوب بكل دقة !!!

[أبو إيمان]

 

Private Sub Workbook_Open()
Dim ws As Worksheet
Sheet"الرئيسية".Visible = xlSheetVisible
Sheet"الرئيسية".Select
Range("a1").Select
For Each ws In ThisWorkbook.Worksheets
If Not ws.Name = "الرئيسية" Then ws.Visible = xlSheetVeryHidden
Next ws
Application.ScreenUpdating = true
End Sub