menüleri gizleme office 2007 de çalışmıyor

[jambow]

arkadaşlar aşağıdaki thisworbook kodu 2003 te menüleri vs gizliyor ama 2007 de gizlemiyor ne yapmalıyım yardım lütfen

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
    ActiveWorkbook.Save
End Sub

 

[ÖZLÜCE]

sub Auto_open()

Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"

 

[jambow]

tşkkürler
dostum