طريقة اظهار الأوراق المخفية بأزرار

[hamidkhiat]

السلام عليكم اخواني ...

أرجو المساعد في طريقة اظهار الأوراق المخفية بأزرار في الصفحة الرئيسية.. وشكرا

تم تعديل أغسطس 20, 2019 بواسطه hamidkhiat

[حسين مامون]

السلام عليكم

اتمنى ان يكون هذا ما تريد

 

اخفاء واظهار الشيتات.xlsm

[hicham2610]

جزاك الله خيرا وأحسن إليك

[سليم حاصبيا]

بعد اذن اخي حسين زر واحد لتنفيذ الحالتين معاً

وخاصية اظهار الشيت من خلال الـــ RIGHT CLICK على اسم الشيت غير مفعّلة حتى لا يستطيع المستخدم اظهار اي شيت بدون الكود

الكود

Option Explicit

Private Sub ToggleButton1_Click()
 With ToggleButton1
    If .Value = -1 Then
        SHOW_ALL
       .Caption = "HIDE ALL SHEETS"
     Else
        HIDE_ALL
       .Caption = "SHOW ALL SHEETS"
    End If
 End With
End Sub
'+++++++++++++++++++++++++++++++++++++++++++

Sub SHOW_ALL()
Dim sh As Worksheet
   For Each sh In Sheets
      sh.Visible = -1
   Next sh
End Sub
'+++++++++++++++++++++++++++++++++++++++
Sub HIDE_ALL()
Dim t%: t = Sheets("الرئيسية").Index
Dim x%
 For x = 1 To Sheets.Count
   If Sheets(x).Index <> t Then _
      Sheets(x).Visible = 2
   Next
End Sub

الملف للتجربة مرفق

 

Show_hide_sheets.xlsm

[hamidkhiat]

مشكوور أخي ...أريد طريقة لاظهار كل ورقة على حده وتختفي من تلقاء نفسها عند الانتقال الى الرئيسية

[حسين مامون]

جرب الطريقة في المرفق

اختر الشيت في الكومبوبوكس  وسيفتح وعند الرجوع الى الرئيسية سيختفي

 

اخفاء واطهار الشيتات.xlsm

[Ali Mohamed Ali]

وزيادة في اثراء الموضوع-تفضل

 

follow hyperlink to hidden sheet in Excel.xlsm

[سليم حاصبيا]

كود رائع صديقي علي 

لكن يمكن اختصاره الى حد بعيد ليبدو هكذا بدون

Private Sub Worksheet_SelectionChange

 

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim my_sh
my_sh = Target.Parent
Sheets(my_sh).Visible = -1
Sheets(my_sh).Select

End Sub
'++++++++++++++++++++++++++
 Private Sub Worksheet_Activate()
    On Error Resume Next
       Sheets(ActiveCell.Value2).Visible = False
End Sub

 

[hamidkhiat]

شكرا اخواني ....