Soru Sayfaları Gizle-Göster

[bulentkars]

Arkadaşlar Merhaba,

Hesaplar.xlsm çalışma kitabımda sadece 3 sayfam var, Sayfa isimleri Grup,320,329 aşağıdaki kodları web ten buldum, tüm sayfaları gizlerken hata veriyor,

burada yapmak istediğim çalışma kitabını açtığımda tüm gizli sayfalar açılacak. sayfayı kapattığımda çıkış yaptığımda tüm görünür sayfaları gizlemek istiyorum. aşağıdaki kodlarda bana yardımcı olabilirseniz sevinirim. şimdiden teşekkürler

 Sub sayfa_gizleme_islemleri()
    
    Sheets("Grup").Visible = xlSheetVeryHidden 'Bu komut da sayfayı gizler fakat excel dosyasına dönüp "Sayfayı Göster" komutu veremezsiniz.
    Sheets("320").Visible = xlSheetVeryHidden
    Sheets("329").Visible = xlSheetVeryHidden
 
End Sub


Sub sayfa_gosterme_islemleri()


   Sheets("Grup").Visible = xlSheetVisible 'Bu komut, gizli olan sayfayı gösterir.
   Sheets("320").Visible = xlSheetVisible
   Sheets("329").Visible = xlSheetVisible
End Sub

 

[Muzaffer Ali]

Merhaba.
Kodlarda sorun yok.
Ancak Excel dosyasındaki tüm sayfaları gizleyemezsiniz. En az bir sayfa görünür olmalı.
Dosyanıza boş bir sayfa daha ekleyin o sayfa her zaman görünür olarak kalsın.

 

[uzmanamele]

Arkadaşlar Merhaba,

Hesaplar.xlsm çalışma kitabımda sadece 3 sayfam var, Sayfa isimleri Grup,320,329 aşağıdaki kodları web ten buldum, tüm sayfaları gizlerken hata veriyor,

burada yapmak istediğim çalışma kitabını açtığımda tüm gizli sayfalar açılacak. sayfayı kapattığımda çıkış yaptığımda tüm görünür sayfaları gizlemek istiyorum. aşağıdaki kodlarda bana yardımcı olabilirseniz sevinirim. şimdiden teşekkürler

Sub sayfa_gizleme_islemleri()
   
    Sheets("Grup").Visible = xlSheetVeryHidden 'Bu komut da sayfayı gizler fakat excel dosyasına dönüp "Sayfayı Göster" komutu veremezsiniz.
    Sheets("320").Visible = xlSheetVeryHidden
    Sheets("329").Visible = xlSheetVeryHidden

End Sub


Sub sayfa_gosterme_islemleri()


   Sheets("Grup").Visible = xlSheetVisible 'Bu komut, gizli olan sayfayı gösterir.
   Sheets("320").Visible = xlSheetVisible
   Sheets("329").Visible = xlSheetVisible
End Sub

Merhaba
Bu şekilde deneyin.

Private Sub Workbook_Open()
'kodlar
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'kodlar
End Sub

Yalnız küçük bir ayrıntı var.
Dosyayı açtığınızda tüm gizli sayfalar açılacak,
Dosya kapatıldığında ana_sayfa hariç tüm sayfalar gizlenecek.
Kapalı dosyada sayfalar görünür olsa ne olur gizli olsa ne olur?
Makroları etkinleştirmeye zorlayacak ve şifreleyecek işlemler de gerekir.

 

[uzmanamele]

Merhaba
Ek dosya size ilham verebilir.
Vba için şifre koymalısınız.

 

[bulentkars]

Çok Teşekkür Ederim