Yeni Excel Açıldıgında Menuler Gözükmüyor

[E-rcn]

yeni Bi Excel Açtıgım Zaman Hiçibir Menu Göstermiyo Alt+F11 Deyip ThisWorkbook İçerisine Bu Kodları Yazıp Kaydettiğim Zaman Menuler Sadece Kayıtlı Excel Dosyasında Gözüküyorlar

Private Sub Workbook_Open()
For Each cb In Application.CommandBars
cb.Enabled = False
Next cb
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
End Sub
Private Sub Workbook_Beforeclose(cancel As Boolean)
Dim cb As CommandBar
Application.DisplayFormulaBar = True
For Each cb In Application.CommandBars
cb.Enabled = True
Next cb
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
End Sub

 

[E-rcn]

Arkdaşlar Sorumu Anlamadınızmı ? Acaba

 

[Ferhat Pazarçevirdi]

Merhabalar

Bu durum, belli bir dosyayı açtığınızda mı, yoksa, yeni veya varolan herhangi bir dosyayı açtığınızda mı oluyor?

 

[E-rcn]

yeni eski herhangi bi sürüm açtıgımda oluyo hatta ofis programı sildim tekrar kurdum yine aynı :S

 

[Ferhat Pazarçevirdi]

Sadece aşağıdaki kodu çalıştırın ve kaydetmeden Excel'i kapatın.

Sub Goster()
Dim cb As CommandBar
Application.DisplayFormulaBar = True
For Each cb In Application.CommandBars
    cb.Enabled = True
Next cb
With ActiveWindow
   .DisplayHeadings = True
   .DisplayHorizontalScrollBar = True
   .DisplayVerticalScrollBar = True
   .DisplayWorkbookTabs = True
End With
End Sub

Excel'i yeniden açın. Şu an tüm toolbarları görüyormusunuz?

 

[E-rcn]

kdou çalıştırdıgımda butun menuler gözüktü ama kapatıp açtıgım zaman yine gözükmüyor

 

[Ferhat Pazarçevirdi]

Peki, Excel'i ilk açtığınız zaman size, "Makroları etkinleştirme" ile ilgili bir soru soruyor mu?

NOT : Menüden ; Araçlar->Eklentiler'i tıklatın. Karşınıza gelen listeden işaretli olanları buraya yazın.