Gizli Sekmelere Comand Buton ile ulaşabilmek.

[Murat KIŞLA]

Merhabalar,
Bir Ana Sayfam var. Bu sayfada oluşturduğum "Comand Buton" larla diğer sayfalara köprü oluşturmuş oldum. Aynı zamanda diğer sayfaların "GİZLİ" olmasını Buton ile görünür hale gelip Ana sayfaya döndüğümde gizli kalmaya devam etmesini istiyorum. Hangi "Kod" u atamam gerekiyor. Lütfen Yardımcı Olurmusunuz.

 

[Muzaffer Ali]

Merhaba.
Gizlenmesini istediğiniz sayfaların hepsinin kod sayfasına aşağıdaki kodu kopyalayın.

Private Sub Worksheet_Deactivate()
    Visible = xlSheetVeryHidden
End Sub

Görünür olmasını istediğiniz sayfayı da aşağıdaki gibi butona kod yazabilirsiniz.
Sayfa adını kendinize göre değiştirmelisiniz.

Private Sub CommandButton1_Click()
    Worksheets("Sayfa1").Visible = True
End Sub

 

[Murat KIŞLA]

Öncelikle Teşekkürler. Kodları uyguladım. Gizleme Kodu sekmenin gizli olmasını sağlıyor. Ancak Butona yazdığım kod sadece sekmeyi görünür hale getiriyor. Sekmeyi tıklayarak sayfanın içerisine girebiliyorum. Oysaki ben butonla sayfaya girip sayfadaki butonla ana sayfaya döndüğümde sekmenin gizli kalmasını istiyorum. İlginize Şimdiden Teşekkürler..

 

[Muzaffer Ali]

Buton kodunu aşağıdaki ile değiştirn.

Private Sub CommandButton1_Click()
    Worksheets("Sayfa1").Visible = True
    Worksheets("Sayfa1").activate
End Sub

 

[Murat KIŞLA]

Muzaffer Ali bey Merhaba
Kodu değiştirdim.
Sorunum çözüldü ve istediğim gibi çalışıyor. Teşekkürler.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.