menü çubuğu

[aleysan]

herkese merhaba.
menü çubuğu nu gizlemek için "
"""
Sub Autpen()
Application.ScreenUpdating = False
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = False
Next i
Application.DisplayFormulaBar = False
Application.ScreenUpdating = True
End Sub

""
kodu ekledim ve tüm excel dosyaları hiç bir araç çubuğu olmadan geliyor menü çubuğu dahil. bunu nasıl kaldırabilirim. excel kullanılmaz oldu. acil yardımlarınız için teşekkür ederim.

 

[hamitcan]

Sub Auto_Open() 
Application.ScreenUpdating = False 
For i = 1 To Application.CommandBars.Count 
Application.CommandBars(i).Enabled = True 
Next i 
Application.DisplayFormulaBar = True 
Application.ScreenUpdating = True 
End Sub

şeklinde nötrleyin.

 

[aleysan]

Sayın hamitcan teşekkür ederim fakat menü çubuğu olmadığı için vba düzenleyiciye geçemiyorum.

 

[hamitcan]

ALT+F11 tuşlarına basınız.

 

[aleysan]

Sayın hamitcan önceki mesajımı dikkate almayın. Buldum alt-f11 geçiyor. Fakat ya uygun yere yapıştırmadım yada olmadı. Bir şey kaçırmış olabilirmiyim.

 

[hamitcan]

insert>module

 

[aleysan]

Diğerleri tamam ama yeni oluşturduklarımada her seferinde bu kodu yapıştırmak zorundamıyım.

 

[hamitcan]

Bu programı devamlı kullanacaksanız şayet, son verdiğim kodun başlığını

Sub Auto_Close

değiştirip bu kodu da eklemeniz gerekiyor.