كود إخفاء جميع قوائم شيت الاكسل بشكل دائم

[Salem2020]

السلام عليكم

الملف المرفق يحتوي على زرارين بها أوامر برمجية حيث يقوم الزر الأول Hide بإخفاء جميع القوائم في شيت الاكسل عند الضغط عليه أما الزر Show  فيقوم بإظهار جميع القوائم

المشكلة تكمن في أنه في حال ضغطت زر الاخفاء Hide ثم أغلقت الملف وأعدت فتحه من جديد يعود إلى وضعه الطبيعي وضع عدم الاخفاء فتظهر جميع القوائم.

هل يستطيع أحد أن يقوم بتعديل أو إضافة بعض الأوامر للكود البرمجي بحيث يجعل أمر الإخفاء دائم عند إغلاق الملف وإعاده فتحه

ودمتم بخير

 

Hide the Entire Excel Interface.xlsm

[حسونة حسين]

 وعليكم السلام ورحمة الله وبركاته 

ضع هذا الكود 

Private Sub Workbook_Open()
Call HideAll
End Sub

في  
ThisWorkbook

 

[Salem2020]

جزاك الله خير الجزاء 

هذا الكود اختصر أمور كثيرة ووفر جهد كبير 

كتب الله اجرك اخي الكريم ..

[حسونة حسين]

وجزاكم مثله اخى الكريم 

الحمد لله الذي بنعمته تتم الصالحات