نويراني

أنا محتاج هذا الكود لفتح البرنامج و اخفاء اشرطة الأدوات وقد حصلت عليه من المنتدى والسؤال هنا كيف أقوم بإستخدامه أي الطريقه اللازمه لعمله وياليت مثال عاجل الله يرحم والديكم ويجعل الجنة مثواكم .. Private Sub Workbook_Open() Sheets("اسم الورقه التى ستنفتح عليها الشاشه").Activate With Application 'Application.DisplayFullScreen = True .CommandBars("Full Screen").Visible = 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 .CommandBars("Control Toolbox").Visible = False .CommandBars("Forms").Visible = False .DisplayStatusBar = False .DisplayFormulaBar = False End With Sheets("اسم الورقه التى ستنفتح عليها الشاشه").Activate End Sub