Sheetlerin gizlenmesi ve Menü den ulaşımın sağlanması

[dilek.gumus]

Merhaba ekteki "menü" adında ki örnek dosyam da çalışma sayfası barının tamamen kaldırmak ve sadece menü tuşlarından sayfalar arası geçiş yapmak istiyorum. Birde bu sayfalarda kullanıcı pivot tabloları oluşturabilir mi? Yardımcı olursanız sevinirim.

 

[GursoyC]

İlk sorunuzun cevabı ekteki dosyadır. Eğer sayfaların bir password ile görünmesini istiyorsanız örneğin anasayfaya bir düğme daha ekleyip düğmeye aşağıdaki kodları atayınız. Pivot table ile ilgili sorunuzu anlayamadım.

Dim MyPassword As String
    MyPassword = "şifreniz!"
    If InputBox("Lütfen devam etmek için şifreyi giriniz!", "Enter Password") <> MyPassword Then
        Exit Sub
        End If
ActiveWindow.DisplayWorkbookTabs = True