çalışma kitabı menü çubuğu yardım lütfen

[cirrus]

selam arkadaşlar çalışma kitabı menü çubuğunu bir türlü bulamadım. bende kayboldu. bir türlü yerine getiremiyorum. (dosya; düzen; görünüm vb) olan menünün yerine getirilmesi hakkında acil yardım istiyorum....

 

[ozgretmen]

Ekteki dosyayı çalıştırınız...

Private Sub Workbook_Open()
    On Error Resume Next
    Set EskiMenu = CommandBars("Worksheet Menu Bar").Controls
    For Each MenuOgesi In EskiMenu
        MenuOgesi.Visible = True
    Next
End Sub