اخفاء جميع شريط الاوامر

[خالد الشاعر]

السادة الخبراء

 

هذا امر يخفى جميع الاوامر من اكسل 2003

 

فهل ممكن نفس الامر مع اوفس 2007 و 2010

 

Sub HidMe()
With Application
    .DisplayFullScreen = True
   .AskToUpdateLinks = False
    .ShowStartupDialog = False
    .CommandBars("Worksheet Menu Bar").Enabled = False
    .CommandBars("Standard").Visible = False
    .CommandBars("Formatting").Visible = False
    .CommandBars("Drawing").Visible = False
    .CommandBars("Reviewing").Visible = False
    .CommandBars("Web").Visible = False
    .DisplayStatusBar = False
    .DisplayFormulaBar = False
    .DisplayFullScreen = True

 

   
End With
With ActiveWindow
    .DisplayGridlines = False
    .DisplayHeadings = False
    .DisplayHorizontalScrollBar = False
    .DisplayVerticalScrollBar = False
    .DisplayWorkbookTabs = False
   
End With

End Sub

 

ولكم جزيل الشكر

جزاكم الله كل خير

[أبو محمد أشرف]

تفضل أخي هل هذا يفي بالغرض

http://www.officena.net/ib/index.php?showtopic=34564&hl=

[خالد الشاعر]

استاذ ابو محمد

 

الف شكر على سرعة ردك

 

ولكن هل هذه الاكواد مجربة على اوفس 2007 و 2010

 

لانى لم اجربها بعد

 

جزاكم الله كل خير