Excel Sayfa Geçişi Sağ Klik Menü Hk

[skaan]

Merhaba;

Forumdaki ustaların yardımıyla Excel Sayfa Geçişi için mause Sağ Klik yapılınca excel sayfasında oluşturulan sayfaları açılan menüye eklenen Sayfa Seç seçimi ile açabiliyorum. Ancak excel dosyasındaki sayfayı gizleyince gizlenen sayfalar Excel Sayfa Geçişi için mause Sağ Klik yapılınca kayboluyor.(Sayfa gizlenince menüden o sayfada kayboluyor)
Kodlarda nasıl bir değişiklik yapmak gerekir ki sayfa gizlenince sağ klikte sayfa ismi kaybolmasın seçebileyim.
Bu konuda yardımcı olabilirmisiniz..?

Saygılarımla,
SKaan

Kullanılan VBA Kodları :

Module Bölümüne :

Sub SayfaCode()
Application.CommandBars("Workbook Tabs").ShowPopup
End Sub


BuÇalışmaKitabi Bülümüne:

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim cCont As CommandBarButton
On Error Resume Next
Application.CommandBars("Cell").Controls("Sayfa Seç").Delete
On Error GoTo 0
Set cCont = Application.CommandBars("Cell").Controls.Add(Type:=msoControlButton, Temporary:=True)
cCont.Caption = "Sayfa Seç"
cCont.OnAction = "SayfaCode"
End Sub

 

[istanbulcahan]

ofis 2016 da sağ tıklayınca bütün sheetleri görüp tıklayıp gidebiliyorsun.