Soru Makro ile sayfayı gösterip gizlemek?

[Sefa.N]

Merhabalar
Aşağıdaki kıstaslara göre, bir çalışma sayfasını gizlemek ve göstermek istiyorum. Bunu konuda yardımcı olabilir misiniz?

• Sayfa2, aşağıdaki sayfalar listesinde sağ tıklama ile göster seçeneği seçilse bile listede görünmeyecek şekilde gizli olmalı.
• Sayfa2 için tek erişim yöntemi, Sayfa1'de yer alan "Sayfa2'yi göster" butonu ile sağlanmalı.
• Sayfa2 açılıp, o sayfadaki işlemler bittikten sonra başka bir sayfaya geçildiğinde otomatik olarak yeniden gizlenmeli.

 

[Tevfik_Kursun]

Merhaba Arkadaş,
gizler hiç görünmez Sheets("Sayfa2").Visible = xlSheetVeryHidden
görünür hale getirir Sheets("Sayfa2").Visible = True
işinize yarayanı kullanınız
İyi çalışmalar

 

[Sefa.N]

Tevfik Bey teşekkür ederim.
Sayfa1'deki butona, makro atayarak verdiğiniz kodları yapıştırdım ve yeni bir modülde aşağıdaki kodlar oluştu.

Sub Dikdörtgen1_Tıklat()
Sheets("Sayfa2").Visible = xlSheetVeryHidden
Sheets("Sayfa2").Visible = True

End Sub

Bu doğrultuda, benim manuel olarak gizlediğim Sayfa2'yi açıyor ancak, Sayfa2'den ayrılıp başka bir sayfaya geçiş yaptığımda Sayfa2'yi gizlemiyor. Ayrıca sayfa listesine sağ tıkladığımda göster menüsünde Sayfa2'yi görebiliyorum.

Neyi yanlış yaptım?

 

[Tevfik_Kursun]

Merhaba Arkadaş,
Kenardaki notu okumamışsınız.
True ile biten kod açar, Hidden ile biten kod tam gizler
iyi çalışmalar

 

[Sefa.N]

Tevfik bey, rahatsızlık vermeye devam ediyorum ama ben bunu halen becerebilmiş değilim.
Rica etsem örnek bir dosya üzerinde uygulayıp paylaşma imkanınız var mı? Hiç olmazsa nerede ne yaptığımı/yapamadığımı mukayese etmiş olurum.

 

[Korhan Ayhan]

Merhaba,

Önerilen iki satır kodu ayrı ayrı olaylara yazmanız gerekirdi.

Aşağıdaki kodu boş bir modüle uygulayınız. bu kodu Sayfa1'deki oluşturacağınız butona tanımlayınız.

Option Explicit

Sub Sheets_Open()
    With Sheets("Sayfa2")
        .Visible = True
        .Select
    End With
End Sub

Aşağıdaki kodu ise Sayfa2'nin kod bölümüne uygulayınız.

Option Explicit

Private Sub Worksheet_Deactivate()
    Me.Visible = xlSheetVeryHidden
End Sub

 

[Tevfik_Kursun]

Merhaba Arkadaş,
Yazınızı şimdi gördüm. Umarım istediğiniz budur.
İyi çalışmalar

 

[Sefa.N]

Sayın Korhan Bey ve Sayın Tevfik Bey,
Her ikinize de zaman ayırıp yardımcı olduğunuz için çok teşekkür ederim.

 

[Tevfik_Kursun]

Merhaba Arkadaş,
Geri dönüşünüz için ben teşekkür ederim
İyi çalışmalar