Excelde araç çubukları kayboldu

[kemalist]

excelde araç çubuklarım kayboldu.makro ile nasıl yapabilirim.yardım edermisiniz...

 

[halit3]

bunu deneyiniz.

Sub düzelt()
'Excelin Orjinal Menüsü Geri Gelir
On Error Resume Next
Set EskiMenuCubugu = CommandBars("Worksheet Menu Bar").Controls
For Each MenuParca In EskiMenuCubugu
MenuParca.Visible = True
Next
CommandBars("YeniMenu").Delete
Application.CommandBars("Worksheet Menu Bar").Controls(11).Delete
Application.DisplayFullScreen = False
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Standard").Visible = True
Application.DisplayFullScreen = False
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
ActiveWindow.WindowState = xlMaximized
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibide deneyebilirsiniz.

For a = 1 To Application.CommandBars.Count
Application.CommandBars(a).Enabled = True
Next

 

[kemalist]

Ekteki dosyayı açtığımda başıma geldi.BİRSEN isimli dosyaya makroyu kaydettim fakat düzelmedi.sizden ricam BİRSEN isimli dosyayı düzeltip koyarmısınız.yaptıklarınız ve yapacaklarınız için teşekkür ederim.

 

[Levent Menteşoğlu]

Dosyada öncelikle araçlar-koruma menüsünden çalışma kitabı korumasını kaldırın. Daha sonra araçlar-seçenekler-görünüm sekmesindeki ilgili kutuları işaretleyim.

 

[kemalist]

Dosyada öncelikle araçlar-koruma menüsünden çalışma kitabı korumasını kaldırın. Daha sonra araçlar-seçenekler-görünüm sekmesindeki ilgili kutuları işaretleyim.

denedim malesef olmuyor sanırım ekteki dosyadan kaynaklanıyor.çözerek dosyayı koyarmısınız

 

[Levent Menteşoğlu]

Dosya ektedir.