مطلوب تعديل كود لاخفاء اشرطة الأدوات

[نويراني]

أنا محتاج هذا الكود لفتح البرنامج و اخفاء اشرطة الأدوات

وقد حصلت عليه من المنتدى

والسؤال هنا كيف أقوم بإستخدامه أي الطريقه اللازمه لعمله وياليت مثال

عاجل الله يرحم والديكم ويجعل الجنة مثواكم ..

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

[نويراني]

ياليت أحد يرد علي

[احمدزمان]

اضغط Alt+F11

يسار الشاشة من الأعلى التي تظهر أمامك

سوف تجد شعار ملف اكسل

اعمل دبل كليك بالماوس علية

تفتح الشاشة

انسخ الكود هنا في الجهة اليمنى

اغلق ملف اكسل

ارجع افتحه

ياسلام اشتغل الكود 100%

[رفيق محمد]

يا سلام

شغل الحواة

جزاك الله الجنة

[israabbasi]

أخي العزيز لقد قمت بنسخ الكود ولكن ما نجح ممكن توضيح أكثر؟

المرفق فيه محاولتي لنسخ الكود.

Book1.rar

[احمدزمان]

السلام عليكم

اخي الفاضل BU3

شكرا لك ولكن حواه

تدري مش مشكلة

تم التعديل للكود بحمد الله وفضلة

ISRAA.rar

[قطان]

:') لدي اكسيل 2007 ولم ينجح الكود

لماذا ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

والسلام ختام

[israabbasi]

أشكركم كثيرا اخي الفاضل، لقد تم بنجاح لكن المشكلة كيف اقدر ارجع الشريط؟؟

[احمدزمان]

بسيطة

نفس الكود مع استبدال

كل False الى True

ثم شغلي الكود

ويعود كل شيء الى ماكان