menü çubuğu

[aleysan]

herkese merhaba. menü çubuğunu gizlemek için bu kodu
""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
"" kullandım. menü çubuğu gizlendi fakat şimdi tüm exceller aynı şekilde geliyor
menü çubukları falan hiç yok.exceli kullanamaz oldum. o excel dosyasını sildim ama yine aynı sorun devam ediyor. normal excele nasıl dönecem. yeni açtıklarımdada aynı sorun var lütfen yardım edin.
herkese kolay gelsin iyi çalışmalar.

 

[Metin Karaağaç]

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