Açılış sayfasında işaretlenen sayfaların gözükmesi

[ofd2008]

Merhaba,
30 sayfadan oluşan bir excel dosyası var. Açılış sayfasında, sayfa isimleri ve yanında onay kutucuğu olacak, onaylanan sayfalar excelde gözükecek diğerleri otomatik gizlenecek. Bunu nasıl yapabilirim?

Şimdiden yardımlarınız için teşekkür ederim

Not: Forumda bunubuldum ama nereye ekleyeceğimi anlayamadım.

Aşağıdaki yordamı boş bir modüle kopyalayınız.

Sub auto_open()
Dim i As Integer
For i = 2 To Worksheets.Count
    Sheets(i).Visible = False
Next i
End Sub

Sayfa2'yi göstermek içinde aşağıdaki kodu kullanınız.

Sheets("Sayfa2").Visible = True

 

[systran]

kullandığınız örneği yüklerseniz daha faydalı olacaktır. çünkü burada hazırlanacak bir örnek ile sizin örneğinizdeki checkbox (işaretleme kutuları) adı farklı olacaktır. "bu da olmadı yapamadım" şeklinde tekrar bir geri dönüş olacaktır. onun için.
Yazdığınız kodlar sayfaları gösterip gizlemek için ama sizin işinize görecek birde checkboxların hangisi işaretli kontrol döngüsü kurulması lazım.

 

[ofd2008]

dosya ekleme seçeneği kapalı oluğu için buraya yükledim, kusura bakmayın.
http://s3.dosya.tc/server18/pxdqGg/_rnek.xls.html

 

[Mustafa MUTLU]

Dosyanızın ThisWorkbook Bölümüne
Aşağıdaki kodu Yapıştırınız..

Private Sub Workbook_Open()
Dim MSTF As Worksheet
On Error Resume Next
For Each MSTF In Worksheets
If MSTF.Visible = Sheets("Anasayfa").Visible Then
Sheets("Anasayfa").Visible = True
End If
MSTF.Visible = False

Next
End Sub