Saklı sayfaları combo boxta göstermeme

[sezarsalatasi]

Combo box yardımı ile mevcut sayfalara ulaşmayı sağlayan bir düzenek mevcut. Fakat dosyanın içinde saklı dosyalarda mevcut. onların combo box ta görünmesini istemiyorum böyle olduğunda seçtiğiniz anda sayfa mevcut değil hatası veriyor. ekteki dosya için yardımınıza ihtiyacım var.

 

[hamitcan]

Private Sub CommandButton1_Click()
ComboBox1.Clear
For i = 1 To Sheets.Count
If Sheets(i).Visible = -1 Then
    ComboBox1.AddItem Sheets(i).Name
End If
Next i
End Sub

 

[sezarsalatasi]

çok teşekkürler .