اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

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%

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information