منع اكسيل 2010 من عرض شاشة البدء الافتراضية الصفراء وعرض فورم جارى التحميل

[عمرو.محمد]

السلام عليكم اخوانى الكرام اعضاء منتدى اوفيسنا العريق وبعد,

اريد منع الاكسيل 2010 من عرض شاشة البدء الصفراء عند فتح المصنف واستبدلها بفورم جارى التحميل بشريط تقدم 100% اذا امكن

جربت application.visible وكل الطرق التقليدية عند الفتح ولكن الشاشة مستمرة فى الظهور واى كود عند الفتح ينفذ بعد هذه الشاشة وليس قبلها.

  

 وشكرا مقدما

 

وهناك موضوع فى منتدى اجنبي يتحدث عن امكانية ذلك من تغير او تعديل ملف الريجيسترى للاكسيل ولكنى لا اعرف كيف اوصل لملفات الريجيسترى لاعدلها وكيف اعدلها

https://forums.mydigitallife.net/threads/disable-office-2010-splash-screens.25439/

[Ali Mohamed Ali]

جرب هذا

من أعمال استاذنا الكبير ياسر خليل له منا كل المحبة والإحترام

بعد فك الضغط ستجد مجلد باسم Files به ملف الإكسيل وملف VBS ..
قم بفتح الملف VBS باستخدام الـ Notepad ثم عدل المسار في السطر الثالث .. ستجد اسم المستخدم Future قم بتغيير اسم المستخدم ليناسبك
ثم بعد ذلك قم بفتح ملف الإكسيل Test

 

منع اكسيل 2016 من عرض شاشة البدء الافتراضية الخضراء...او الصفراء 2010.rar

[ابو ياسين المشولي]

وهذا كود بدون ما تسجل اسم المسار فقط تحطه جوار البرنامج وتسجل اسم البرنامج بدون المسار

ويشتغل من اي مكان فقط انه يكون بجواره

Dim xlApp, xlBook
dim fso
dim curDir
set fso = CreateObject("Scripting.FileSystemObject")
curDir = fso.GetAbsolutePathName(".")
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = false
Set xlBook = xlApp.Workbooks.Open(curDir & "\Projram.xlsb")