Referans sayfası hariç diğerlerini gizle, sağ klik menü ile yönet.

[aktarmamd]

Merhabalar;

Çalışma kitabımın auto open kısmında aşağıdaki kod;

Option Explicit
Public Ayar As Boolean
Sub Auto_open()
DoEvents
If Ayar = True Then
Ayar = False
End
Exit Sub
End If
If ActiveSheet.Name = "report" Then ActiveSheet.Range("AZ1") = 1
Application.OnTime Now + TimeSerial(0, 0, 2), "Alarm_Aktif"
End Sub

This workbook kısmında ise;

Option Explicit

Private Sub Workbook_Activate()
Application.OnKey ("{ESC}"), "Alarm_Pasif"
Application.OnKey "^{F11}", "Alarm_Aktif"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey ("{ESC}")
Application.OnKey "^{F11}"
End Sub

Private Sub Workbook_Deactivate()
Application.OnKey ("{ESC}")
Application.OnKey "^{F11}"
End Sub

Private Sub Workbook_Open()
Application.OnKey ("{ESC}"), "Alarm_Pasif"
Application.OnKey "^{F11}", "Alarm_Aktif"
End Sub

kodları var.
Ben bu çalışma kitabı açılırken sadece DASHBOARD isimli sayfa görünür olsun ve sağ klik ile açılan menüye "veri" ve "report" sayfalarının gösterildiği, çıkarken ise "DASHBOARD" sayfası aktif diğer sayfalar gizli olarak eklenen menünün de pasif olduğu bir fantazim var.. Kodu araya girmeyi bir türlü beceremedim.
Dosya baya yüklü olduğundna paylaşamadım, ama gerekliyse boş haliyle paylaşabilirim.

Destek olacaklara şimdiden teşekkürler.