مشكلة شاشة دخول تمنع فتح اي اوراق عمل اخرى مادامت الواجهة مفتوحة

[مصطفى محمود مصطفى]

السلام عليكم

ارفق شاشة دخول للاستاذ سعيد بيرم جزاه الله خيرا

الشاشة فيها مشكله انه عندما تكون الواجهة الرئيسية مفتوحة

لاتسمح بفتح اي ورقة اكسل

وحتى لو كانت هناك ورقة مفتوحة مسبقا تخفيها

ولا تظهر  الى ان اخرج من الشاشة الرئيسية الى اوراق العمل الاخرى

ارجو ايجاد حل للمشكلة جزاكم الله خيرا

 

شاشة دخول شيت كنترول برقم سرى - سعيد بيرم.rar

[ياسر العربى]

تفضل  اخي

 

شاشة دخول شيت كنترول برقم سرى - سعيد بيرم.rar

[مصطفى محمود مصطفى]

السلام عليكم

اخي ياسر العربي وفقكم الله

اشكر مساعدتكم لي لكن لازالت المشكلة قائمة

عدم ظهور اي ملف اكسل ما دامت واجهة الفورم الرئيسية تعمل عند اخفاءها والذهاب الى الشيت

تعمل بقية الملفات طبيعي عند فتح الشاشة ترجع بعدم الظهور ابدا

تحياتي لكم وارجو مساعدتي وتصحيح الخطأ

بارك الله بكم

 

[عبد العزيز البسكري]

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

أخي الكريم " مصطف محمود مصطفى " الملف المعدّل من طرف أستاذنا القدير " ياسر العربي " يعمل عندي بشكل أكثر من  الطبيعي

فائق إحتراماتي

[مصطفى محمود مصطفى]

السلام عليكم

شكرا استاذ عبد العزيز بارك الله بكم

ارجو من الاستاذ ياسر ان يبين اين مكان التغيير بالكود

حتى يتسنى لي التغيير في ملفي الاصلي

بارك الله بجهودكم الطيبة .. تحياتي

[عبد العزيز البسكري]

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

أستاذي الفاضل " مصطفى محمود مصطفى " .. نيابة عن الأستاذ الغالي " ياسر العربي " ما عليك سوى فتح الملفيْن و التّنقيب عن مكمن الفرق بينهما و بإذن الله ستكتشف بنفسك عن قرب و عن اطّلاع مكان التغيير في الكود

فائق إحتراماتي

[ياسر العربى]

اخي الغالي

تفضل

Application.Visible = False
هذا السطر لجعل برنامج الاكسيل غير مرئي 
اما تمسحها او تعكسها
Application.Visible = True
وهذا الكود 
Dim S As Worksheet
    Const wsKeep As String = "Sheet7"
         Worksheets(wsKeep).Visible = True
       For Each S In Worksheets
        If S.Name <> wsKeep Then S.Visible = xlSheetVeryHidden
    Next S
يعمل علي اظهار الشيت 7 
ويقوم باخفاء الباقي وانت لا تحتاح هذا فنستبدلة بهذا
Sheet7.Activate
مجرد كود لتنشط الشيت فقط

وهكذا مع كل الاكواد

25 minutes ago, عبد العزيز البسكري said:

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

مشكور اخي العزيز الكريم عبد العزيز البسكري لدعمك الجميل لنا

كل الشكر والتقدير لك اخي الغالي

ومرة اخري اخي الغالي يرجى مراجعه المرفق جيدا 

لعلك فتحت نفس الملف الموجود عندك لتشابه الاسماء بين الملفين

وشكرا

[مصطفى محمود مصطفى]

الاخ ياسر عافاكم الله

شرح بسط وسهل لي الكثير حيث منذ تنبيه الاستاذ عبد العزيز جزاه الله خيرا

وانا ابحث ولم اتوصل لما ذكرته كون خبرتي بسيطة

شاكرا لكم جهودكم ووقتكم والشكر موصول للاستاذ عبد العزيز

وفقكم الله ...لكم تحياتي