كود اخفاء الشيتات عدا شيت محدد

[Ali994m]

السلام عليكم 

أرجو المساعدة في اخفاء الشيتات عدا شيت محدد 

 

TEST.xlsm

[عبدالفتاح في بي اكسيل]

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

Sub UNHideAllSheetsTABS()
Dim WS As Worksheet

For Each WS In ThisWorkbook.Worksheets
    If WS.Name <> ActiveSheet.Name Then WS.Visible = xlSheetVisible
Next WS

End Sub

Sub hide()
Dim WS As Worksheet

For Each WS In ThisWorkbook.Worksheets
    If WS.Name <> ActiveSheet.Name Then WS.Visible = xlSheetVeryHidden
Next WS

End Sub

 

TEST.xlsm

[Ali994m]

جزاك الله أخي لكن حصلت أخطاء أثناء اضافة للكود للزر في userform1

Private Sub CommandButton2_Click()
Application.Visible = True
Sheets("micro").Activate
UserForm1.hide
End Sub

Private Sub CommandButton4_Click()
Application.Visible = True
Sheets("raw").Activate
UserForm1.hide
End Sub

أرجو المساعدة في اضافة الكود للأزرار 1-2

أو شرح تعديل الكود ليتم اضافة اسم الصفحة التي لا يراد اخفاءها داخل الكود 

[Ali994m]

المطلوب اغلاق جميع الصفحات عدا الصفحة micro عند الضغط على الزر CommandButton2

واغلاق جميع الصفحات عدا Raw عند الضغط على الزر CommandButton2

 

[عبدالفتاح في بي اكسيل]

كان وجب عليك توضيح هذا من البداية  كما انك تكرر  نفس رقم الزر commandbutton2  اعتقد ما تقصد به رقم 4 

ملاحظة ليس في كل مرة ترد عليه تقوم بعمل اقتباس لمشاركتي هذا مضيعة للوقت الا في حالة الضرورة 

جرب هذا  التعديل  ليس لدي وقت للتجربة لكن اعتقد انه سيفي بالغرض 

Private Sub CommandButton2_Click()
Application.Visible = True
Sheets("micro").Activate
Dim sh As Worksheet
For Each sh In Worksheets(Array("RAW", "Date", "MICC", "REPORT", "LABLE"))
    sh.Visible = xlSheetVeryHidden
Next sh
UserForm1.hide
End Sub

Private Sub CommandButton4_Click()
Application.Visible = True
Sheets("raw").Activate
Dim sh As Worksheet
For Each sh In Worksheets(Array("MICRO", "Date", "MICC", "REPORT", "LABLE"))
    sh.Visible = xlSheetVeryHidden
Next sh
UserForm1.hide
End Sub

 

[Ali994m]

جزاك الله كل خير أخي 

نجح الكود على الزر الأول لكن حصل خطأعلى الزر الثاني

[عبدالفتاح في بي اكسيل]

قم بهذا  التعديل 

Private Sub CommandButton2_Click()
    Application.Visible = True
    Dim sh As Worksheet
   
    With ThisWorkbook.Worksheets("micro")
        .Visible = xlSheetVisible
        .Activate
    End With
   
    For Each sh In ThisWorkbook.Worksheets(Array("RAW", "Date", "MICC", "REPORT", "LABLE"))
        sh.Visible = xlSheetVeryHidden
    Next sh
    UserForm1.Hide

End Sub

Private Sub CommandButton4_Click()
    Application.Visible = True
    Dim sh As Worksheet
   
    With ThisWorkbook.Worksheets("raw")
        .Visible = xlSheetVisible
        .Activate
    End With
   
    For Each sh In ThisWorkbook.Worksheets(Array("micro", "Date", "MICC", "REPORT", "LABLE"))
        sh.Visible = xlSheetVeryHidden
    Next sh
    UserForm1.Hide

End Sub

 

[Ali994m]

اجابة ممتازة جزاك الله كل خير