LıstBox da Listelenen Sayfalara Erişim hk.

[ocamsul]

Arkadaşlar merhabalar. Aşağıda vermiş olduğum kodlar ile Çalışma Kitabındaki Sayfalara ulaşabiliyorum. Ancak Gizli olan Sayfa1 e ulaşamıyorum. Bu sorunu nasıl çözeriz arkadaşlar?

Private Sub ListBox1_Click()
Sheets(ListBox1.Text).Select
End Sub

Private Sub UserForm_Initialize()
Call AddSh
With Application
Me.Top = .Top
Me.Left = .Left
Me.Height = .Height
Me.Width = .Width
End With
End Sub

Sub AddSh()
Dim oSh As Object
UserForm7.ListBox1.Clear
For Each oSh In ThisWorkbook.Sheets
UserForm7.ListBox1.AddItem oSh.Name
Next
End Sub

 

[zafer]

Merhaba


Private Sub ListBox1_Click()
If ListBox1.Value = "Sayfa1" Then Sheets("Sayfa1").Visible = True
Sheets(ListBox1.Text).Select
End Sub

Userform kapandığında tekrar sayfa1 gizlemek içinde aşağıdaki kodu ilave edin
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Sheets("Sayfa1").Visible = False
End Sub

 

[ocamsul]

Sn: Zafer üsdat teşekkür ederim. Sorun sayende çözüldü.