اذهب الي المحتوي
أوفيسنا

كود ماكرو لاخفاء شريط المهام بملف معين فقط


sam_farh
إذهب إلى أفضل إجابة Solved by احمد بدره,

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

تفضل لك ما طلبت هذه الأكواد فى مديول عادى

Sub hide_menu()
Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"
End Sub
Sub show_menu()
Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)"
End Sub

وهذا الكود فى حدث ThisWorkBook

Private Sub Workbook_Open()
hide_menu
End Sub

وذلك كما بالملف

 

Hide.xlsm

  • Like 4
  • Thanks 1
رابط هذا التعليق
شارك

بارك الله فيك أستاذنا الفاضل علي محمد علي

وبعد إذنك

أرى أن يتم أيضا الكود في حدث ThisWorkBook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
show_menu
End Sub

حتى يعود الإكسيل للوضع الافتراضي بعد غلق هذا الملف 

فعندما يتم فتح ملف آخر لا يجد الشريط مخفى  ويحدث هذا الأمر على الأكثر في إصدرات الأوفيس القديمة

Hide.xlsm

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

أستاذ / sam_farh

 بالفعل الملف به ما تريد أنه عند فتحه على أي جهاز يختفي الشريط وإذا أغلق الملف وفتحه مرة أخرى يختفي

لأنه الكودي يشتغل في حدث   ThisWorkBook  عند الفتح

ولإثراء الموضوع

جرب هذا بإذن الله يفي الغرض

 

Hide.xlsm

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

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

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



سجل دخولك الان
×
×
  • اضف...

Important Information