Menu Çubuğum Nerdesin??

[Eser Gökay]

arkadaslar sitemizde bulunan kod arvişinden aşağıdaki kodu bir çalışmama uygulayıp menu cubugunu kaldirdım.

Sayfa açılırken en üstte bulunan yazılı (Dosya, Düzen,..) Menü Çubuğunu gizler, Dosya kapatılırken de tekrar gösterir.
'ThisWorkbook modülüne kopyala
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub

Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

herşey yolundayken yani bu bu kod sadece o dosyada etkin iken ne olduysa bu sefer exceli her actıgımda karsıma cıkmaya basladı. yeni calisma kitabı menusuz geliyor. VBA'ya gecip sayfanın ThisWorkbook'una bakıyorum boş herhangi bir kod yok. Office Kaldırıp yeniden kurdum durum aynı. kodu ilk yazdıgım dosyadan da tamamen kaldırdım durum aynı.

Baslıga bu tur durumlarda Yardım, Lütfeeennn gibi seylerin yazılmasına ben de karsı olanlardanım. Ama durum aynen "ACİL YARDIM LÜTFEENNNNN" durumudur. tesekkur eder iyi calismalar dilerim...

 

[hamitcan]

Aşağıdakileri sırayla deneyin. Bunlardan biri işinizi çözecektir tahminimce.

Sub Kapat()
  Application.CommandBars(1).Enabled = False
End Sub

Sub Aç()
  Application.CommandBars(1).Enabled = True
End Sub

Sub bur()
MenuBars(xlWorksheet).Reset
End Sub

Sub Gorunum_Arac_Cubuklari_Reset()
  Dim Cmbr As CommandBar
  For Each Cmbr In Application.CommandBars
    On Error Resume Next
    Cmbr.Reset
  Next Cmbr
End Sub

 

[Eser Gökay]

sayın hamitcan maalesef hicbiri ise yaramadı.

artı bu kodları yazmışsınız ama yeni actıgım kitapta menusuz geliyor. nereye yazmam gerekiyor. o anlamda da bir yanlıs yazma durumu olmasin acısından bunu yazdım. tesekkurler...

 

[hamitcan]

ALT + F11 e basın. Bir Module içine bu kodları ekleyin ve çalıştırın.