Gizli Sekmelere Comand Buton ile ulaşabilmek.

Murat KIŞLA

Altın Üye
Katılım
6 Kasım 2022
Mesajlar
3
Excel Vers. ve Dili
Excel 2016 Türkçe
Altın Üyelik Bitiş Tarihi
06-11-2027
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.
 
Son düzenleme:

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Merhaba.
Gizlenmesini istediğiniz sayfaların hepsinin kod sayfasına aşağıdaki kodu kopyalayın.
Kod:
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.

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

Murat KIŞLA

Altın Üye
Katılım
6 Kasım 2022
Mesajlar
3
Excel Vers. ve Dili
Excel 2016 Türkçe
Altın Üyelik Bitiş Tarihi
06-11-2027
Ö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

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Buton kodunu aşağıdaki ile değiştirn.
Kod:
Private Sub CommandButton1_Click()
    Worksheets("Sayfa1").Visible = True
    Worksheets("Sayfa1").activate
End Sub
 

Murat KIŞLA

Altın Üye
Katılım
6 Kasım 2022
Mesajlar
3
Excel Vers. ve Dili
Excel 2016 Türkçe
Altın Üyelik Bitiş Tarihi
06-11-2027
Muzaffer Ali bey Merhaba
Kodu değiştirdim.
Sorunum çözüldü ve istediğim gibi çalışıyor. Teşekkürler.
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Rica ederim. Kolay gelsin.
 
Üst