Sayfaların Gizli Olması

[yaslan]

Merhaba Arkadaşlar,

Excel dosyasında sadece Menü sayfasının görünmesini, diger sayfaların gizli olmasını istiyorum. Menü sayfasındaki butonlara basıldığında ilgili sayfaya gitmesi, menu sayfasında geçildiğine ise digger sayfaların yine gizli olarak kalması ve görünmemesini istiyorum. macro ve hyperlink ile yapmaya çalıştım olmadı. Yardımcı olabilirmisiniz?

 

[bzace]

Hayırlı akşamlar,
http://www.excel.web.tr/f14/hyperlink-t133631.html#post724587 linkini inceleyiniz.

 

[yaslan]

Çok teşekkürler

 

[Ömer]

Merhaba,

Alternatif olarak aşağıdaki gibi kullanabilirsiniz. Menü sayfası D2: D4 arasındaki sayfa isimlerine fare ile tıkladığınızda ilgili sayfa açılır, sayfadan çıkınca gizlenir.

Menü sayfası kod bölümüne:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Intersect([D2:D4], Target) Is Nothing Then Exit Sub
 
    On Error GoTo atla
    Sheets("" & ActiveCell & "").Visible = True
    Sheets("" & ActiveCell & "").Select
 
    Exit Sub
atla:
    MsgBox "Safa Yok"
 
End Sub

Çalışma Kitabı kod bölümüne:

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 
    If Sh.Name = "Menü" Then Exit Sub
    Sh.Visible = False
 
End Sub

.

 

[yaslan]

Çok teşekkürler sayın Ömer