listbox'ta gizli sayfaların gösterilmemesi sağlanabilirmi

[ayhan7tr]

Sevgili Arkadaşlar,
Aşagıdaki user formda çalışma kitabındaki gizli sayfaların gösterilmemesini nasıl sağlayabilirim.
Teşekkür ederim.
Saygılarımla
Ayhan
Private Sub ComboBox1_Click()
Sheets(Me.ComboBox1.Text).Select
Me.Caption = ActiveSheet.Name
End Sub
Private Sub ListBox1_Click()
Sheets(Me.ListBox1.Text).Select
Me.Caption = ActiveSheet.Name
End Sub
Private Sub UserForm_Activate()
For s = 1 To Sheets.Count
Me.ComboBox1.AddItem Sheets(s).Name
Me.ListBox1.AddItem Sheets(s).Name
Next
End Sub
Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

 

[meslan]

Merhaba, şu şekilde yapabilirsiniz.
Sheets(Me.ListBox1.Text).Visible = True
Sheets(Me.ListBox1.Text).Select

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub UserForm_Activate()
    For S = 1 To Sheets.Count
    If Sheets(S).Visible = True Then
    Me.ComboBox1.AddItem Sheets(S).Name
    Me.ListBox1.AddItem Sheets(S).Name
    End If
    Next
End Sub

 

[ayhan7tr]

Korhan Bey,
Harikasınız. Çok teşekkür ederim.
Sevgi ve saygılarımla
Ayhan
Ayrıca Meslan arkadaşıma da teşekkür ederim