اخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته
عندي ملف فيه مجموعة من أوراق العمل وعملهم اخفاء من الفيجوال بيسك ماعدا ورقة واحدة
وعامل في كل ورقة زر يفتح يوزر فورم به ليست بوكس يضم كل اوراق العمل
عايز لما اضغط علي اي ورقة عمل تفتح
وهذا هو كود الموجود باليوزر فور ( ماذ اضيف له لكي تفت الورقة المختارة )
Private Sub Label4_Click()
End Sub
Option Explicit
Private Sub ListBox1_Click()
With Me.ListBox1
If .ListIndex <> -1 Then
ThisWorkbook.Sheets(.List(.ListIndex)).Activate
End If
End With
End Sub
Private Sub UserForm_Initialize()
Dim y As Integer
Do
y = y + 1
ListBox1.AddItem Sheets(y).Name
Loop Until y = Worksheets.Count
End Sub