sekme kapatıp açma

[Onur5k]

yapmış olduğum excelde fazla sayıda çalışma sayfası ve bir adet ana tablo bulunmaktadır. makro ile gizli çalışma sayfalarına buton atanarak görüntülenmesi sağlanmış ve tümünü kapatabilmek içinde farklı bir kapatma makrosu tasarladım. Ancak kapatma makrosunun çalışabilmesi için tüm gizli sekmelerin açılması gerekiyor. Örnekte 4 adet çalışma sayfası var ancak bu adet 20-30 lara çıktığı zaman üzerinde değişiklik yapılmayacak sayfalarında kapama için açılması gerekecek böyle olursa. Bunun farklı bir yöntemi nasıl olabilir. Kısaca yapmak istediğim şey herhangi bir çalışma sayfasını açtığımda konulacak tek bir buton ile bu çalışma sayfasını tekrar gizleyebilmek.
yardımlarınızı rica ederim.
saygılarımla

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod'u kullanın.
ana tablo adını taşımayan, görünür durumdaki tüm sayfaları gizler.
Ayrıca sayfa gösterme kodlarında kullandığınız Sheets("ana tablo").Select şeklindeki satırları da silebilirsiniz.
.

[B]Sub hepsinikapat()[/B]
For s = 1 To ActiveWorkbook.Sheets.Count
    If Sheets(s).Name <> "ana tablo" And Sheets(s).Visible = True Then Sheets(s).Visible = False
Next
[B]End Sub[/B]