Dosya Menüsü Kayboldu

[tufan03]

Arkadaşlar nasıl oldu bilmiyorum,Dosya Menüsü kayboldu tabi buna bağlı olarak Dosyanın alt menülerine de ulaşamıyorum,Mesela yazdırma alanını belirleyemiyorum. Bazı kodlar buldum, çözüm olmadı yardımlarınızı bekliyorum. Teşekkür ederim.

 

[hamitcan]

Aşağıdaki kodları sırayla bir deneyin.

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

Sub aa()
'Application.CommandBars.ActiveMenuBar.Enabled = True
Application.CommandBars.ActiveMenuBar.Enabled = False
For Each Bar In Application.CommandBars
On Error Resume Next
Bar.Visible = False
Next
'Application.DisplayFormulaBar = False
End Sub

 

[tufan03]

Teşekkür ederim Sayın Hamitcan sorun çözüldü.