Menusüsüz Excel Problemi

[asmirk]

Arkadaşlar menüleri kaldırmak için bir makro kullandım. Ve excel imi eski haline getiremiyorum ve bütün excel dosyalarım aynı şekilde menüsüz açılıyor. Sildim baştan kurdum bir şey değişmedi acaba nasıl çözümleyebilirim yardım edebilir misiniz?

Saygılarımla..

 

[Levent Menteşoğlu]

Menüleri kaldırdığınız kodu tersten çalıştırmanız yeterlidir. Bu kodu verirmisiniz.

 

[asmirk]

Sevgili Levent Menteşoğlu Göstermiş olduğunuz ilgiye teşekkür ederim sorunumu hallettim lakin sadece 1 kitap ta yapmak istiyorum bu menü olayını fakat bütün excel dosyalarını açtığım zaman aynı eksik menüler çıkıyor. Sadece benim istediğim dosyada bu menüler kayıp olsun diğer açtığım standart dosyalarda ise normal menülerimi göreyim.Bunu Başaramadım yardımcı olabilir misiniz?

Private Sub Workbook_Open()


Dim cb As CommandBar
Application.DisplayFormulaBar = False
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
Application.WindowState = xlMaximized
ActiveWorkbook.Save
End Sub

Saygılarımla

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

Private Sub Workbook_Activate()
Dim cb As CommandBar
Application.DisplayFormulaBar = False
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
Application.WindowState = xlMaximized
ActiveWorkbook.Save
End Sub
 
Private Sub Workbook_Deactivate()
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
Application.WindowState = xlMaximized
End Sub

 

[asmirk]

Çok Teşekkür Ederim Sayın Levent Menteşoğlu tam istediğim gibi olmuş elinize ve zekanıza sağlık

Saygılarımla