excel 2007'de menülerin kaldırılması

[irfani]

Merhaba;
Hazırladığım excel çalışması açıldığında tüm menüleri kaldırıp, sağ tuşu etkisiz hale getiren makro kodunu araştırdım, web sitenizde aşağıdaki kodu buldum,

Sub Autpen()
Private Sub Workbook_Activate()
Dim cb As CommandBar
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = 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

söz konusu makro kodları excel 2002 veya 2003'te işe yarıyor, ancak excel 2007'de menü sistemi farklı olduğundan bu kodlar işe yaramıyor, excel 2007'de tüm menüleri kaldırıp sağ tuşu etkisiz hale getirecek makro kodu nasıl olmalıdır, daha da önemlisi hem excel 2002 veya 2003'te, hem de excel 2007'de işe yarayacak şekilde makro kodu yapılabilir mi?

 

[irfani]

Kimseden cevap gelmediğine göre demekki excel 2007'de menüleri kaldırabilecek makro kodları henüz icad edilmedi.

 

[uzmanamele]

merhaba

tık tık tık...

 

[irfancantr]

http://www.excel.web.tr/showpost.php?p=319147&postcount=10

 

[ÖZLÜCE]

ŞERİDİ KALDIRMAK

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


ŞERİDİ MİNİMİZE ETMEK

Sub Minimize_Ribbon()

If Application.CommandBars("Ribbon").Height > 80 Then SendKeys "^{F1}"

End Sub

Sub Full_Ribbon()

If Application.CommandBars("Ribbon").Height < 80 Then SendKeys "^{F1}"

End Sub