gözükmeyen çalışma sayfası

[mcetinkaya65]

Sizlerinde yardımı ile örnek sayfadan ana sayfaya yazılan isme göre, köprüsü oluşturulmuş yeni bir sayfa açan, program yaptık.Ama kulanıcılar çalışma sayfalarını gizlemişler.Ekrana mavi bir ekran geliyor.Şerit üzerindeki bütün araç çubukları da devre dışı,sanki sayfa koru yapmış gibi.
Dosyayı göndercektim 5 mb lık bir dosyayı gönderemedim, boyu büyük diye kabul etmedi.
Mümkün ise lütfen yardım

 

[Mustafa MUTLU]

Sorunu pek anlamadım ama sayfalar gizlen mişse :
Dosyanın ThisWorkbook Kod bölümüne aşağıdaki kodu gir
Sayfa adların ayarla Ben Sayfa1 ve Sayfa2 yazdım sen çoğaltabilirsin.

Private Sub Workbook_Open()
Sheets("Sayfa1").Visible = True
Sheets("Sayfa2").Visible = True
End Sub

Sayfalar görünür hale gelecek..

 

[kykbt]

Sub Un_Hide_All()
Dim sh As Worksheet
 For Each sh In Worksheets
 sh.Visible = True
 Next
End Sub

Daha evvel banada lazım olmuştu sanırım bu işinizi görebilir.

 

[sonnay]

Merhaba arkadaşlar .. Aranızda senet defteri kullana varmı

Mrb
kırtasıye den senet defteri aldım ancak kullanımı ile ilgili kafama takılan bir kaç soru var .. Bu defterlerden kullanan bir arkadaş varsa bana cevap verebilir mi