اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by حسين مامون,

الردود الموصى بها

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

وخاصية اظهار الشيت من خلال الـــ 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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

 

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information