أخي العزيز خالد
لا يوجد في الملف المرفق كود يقوم بإخفاء أوراق العمل بل يقوم الكود بإخفاء التطبيق عند دخول الملف والكود المسئول عن ذلك هو Auto_Open ...

استاذ ياسر
اشكرك على اهتمامك و لكن فى Module1
هذا الماكرو مسئول على اخفاء جميع اوراق العمل

Sub kh_wVisible(ibol As Boolean)
Dim nBook As String
nBook = ThisWorkbook.Name
With Windows(nBook)
    If .Visible = Not ibol Then .Visible = ibol
End With
End Sub

الماكرو يقوم بتخزين اسم المصنف الحالي في متغير باسم nBook ثم يخفي المصنف دون إخفاء التطبيق
جرب الكود بهذا الشكل لتتأكد بنفسك

Sub Test()
    kh_wVisible False
End Sub

Sub kh_wVisible(ibol As Boolean)
    Dim nBook As String
    nBook = ThisWorkbook.Name
    With Windows(nBook)
        If .Visible = Not ibol Then .Visible = ibol
    End With
End Sub

لاحظ بعد تنفيذ الكود ستختفي نافذة المصنف الحالي دون إخفاء التطبيق ...

لإظهارها مرة أخرى استخدم السطر

kh_wVisible True

استاذ ياسر
المشكله عند تنفيذ هذا الكود مع فورم يفتح اكسل مرتين مع اوفس 2013
مثال الملف المرفق فى المشاركه الاولى
فهل يوجد حل لهذه المشكله

لا أدري أنا جربت الملف ويعمل بشكل عادي بدون فتح الأوفيس مرتين كما يحدث عندك ..

الملف يعمل بشكل عادي بدون فتح الأوفيس مرتين
(اوفيس 2019 - ويندوز 10)
(اوفيس 2010 - ويندوز اكس بي)