Sayfa Sekmelerini Gizlemek İstiyorum Ama Köprü Bağlantıları Yok Olmasın.

[alper19881]

Merhaba Arkadarşlar.

Ekteki Exceldeki Gibi Sayfa Sekmelerini Gizlemek İstiyorum Çünki 250 Sayfa Kafa Karıştırıyor Ama Köprü Bağlantılarınında Yok Olmaması Lazım Yardımcı Olurmusunuz?
Makro İle Yaptım Ama Köprü Bağlantıları Yok Oldu.

 

[Ömer]

Merhaba,

Linkteki #4 numaralı mesajdaki kodları dosyanıza uyarlayabilirsiniz.

http://www.excel.web.tr/f48/sayfalaryn-gizli-olmasy-t135106.html

.

 

[omerceri]

Sn alper19881
Köprüyü kaldırın, o hücreye sadece active olacak sayfanın adını yazın.
Bu sayfanın Kod sayfasına aşağıdaki kodu yapıştırın.
Hücreye çift tıklayınca Sayfa görünür ve aktif olacaktır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For i = 1 To Sheets.Count
If Target = Sheets(i).Name Then
Sheets(Target.Value).Visible = -1
Sheets(Target.Value).Activate
End If
Next
End Sub

 

[omerceri]

Ayrıca gizli kalması gereken sayfalardan çıkınca, bu sayfaların tekrar gizlenmesi için aşağıdaki kodu ThisBook'un kod sayfasına yapıştırın, Köprülerin bulunduğu sayfanın adı "Sayfa1" değilse kodlarda buna göre değişiklik yapın,

]Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "Sayfa1" Then
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Sayfa1" Then
Sheets(i).Visible = 0
End If
Next
End If
End Sub