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

[sam_farh]

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

[Ali Mohamed Ali]

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

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

[احمد بدره]

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

وبعد إذنك

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

Private Sub Workbook_BeforeClose(Cancel As Boolean)
show_menu
End Sub

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

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

Hide.xlsm

[احمد بدره]

أستاذ / sam_farh

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

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

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

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

 

Hide.xlsm

[sam_farh]

استاذ / احمد بدره بارك الله فيك ولو امكن اضافه اخفاء شربط المعادله يكون كرم بالغ من حضرتك

[احمد بدره]

تمت الإضافة

Hide.xlsm