إنشاء شاشة إفتتاحية متحركة | شريط تقدم و نص متحرك | Splash Screen VBA

[@mohammadabutalib1225]

السلام عليكم ودعواتنا لحضرتك تكون بخير دائما وترجع بالسلامه .. ننتظر جديدك دائما وياليت يكون بعيد عن موضوع شئون الموظفين وتتحفنا بحاجة جديده مختلفه كرما من حضرتك

[@Informationsystems-r3d]

الله يبارك في فيك ويزدك من علمه

[@alhassanabuelkhair]

شكراً جزيلاً لحضرتك اللهم آمين نحن وإياكم

[@الرعدالقاصف-ي7ه]

شكرا جزيلا لك اخي على هذه المجهودات الرائعة . أخوك من الجزائر

[@alhassanabuelkhair]

العفو 🌹🙏🙏 بارك الله فيكم

[@zahramostafa9101]

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

[@zahramostafa9101]

ممكن اضافة كود لحماية نسخ او نقل البرنامج إلى جهاز اخر

[@abdullahalkhateeb8289]

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

[@alhassanabuelkhair]

الله يعطيك العافية بارك الله فيكم استاذ عبدالله

[@karambakhit12]

السلام عليكم ورحمة الله شرح بسيط وسهل نرجو من سيادتكم شرح طريقة عمل تقرير من اكثر من ورقة عمل داخل الفرم وشكرآ

[@RM_CASTRO_PUBG]

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

[@alhassanabuelkhair]

شكراً جزيلاً لحضرتك الله يعطيك ألف عافية انا ممتن جداً بتعليقك

[@فاضلالعامري-ف3ق]

ما شاء الله تبارك الرحمن.. درس جميل جدا جزاك الله كل خير

[@alhassanabuelkhair]

الله يعطيك العافيه 🌹🙏 و جزاكم الله خيرا

[@osamahhlal8447]

الحسن ابو الخير ماشاء الله انت شخص مبدع وجزاك الله كل الخير

[@alhassanabuelkhair]

شكرا جزيلا لك استاذ أسامة

[@sherko965]

بارك الله فيك ، ادعو لك بالصحة و العافية

[@alhassanabuelkhair]

بارك الله فيكم الله يعطيك العافية

[@cherifiayoub9455]

مبدع الأستاذ الحسن. جزاك الله عنا كل خير

[@alhassanabuelkhair]

الله يعطيك العافية

[@محمدعلى-ظ5س4ط]

درس قيم وشرح ممتاز جدا ، ربنا يزيدك من فضله ، الف الف شكر لحضرتك

[@alhassanabuelkhair]

شكرا جزيلا لك 🌹🙏🙏 اللهم آمين نحن و اياكم 🤲

[@hima0002]

الله ينور عليك يا باشمهندس الحسن ابو الخير .. يا ريت بعد اذنك بعد كل فيدو يا ريت ترفق ملف العمل حتى يتثنى للجميع الاستفادة منه . وجزاك الله كل خير

[@alhassanabuelkhair]

الله يعطيك العافيه 🌹🙏

[@محمودالطهراوي-ر1خ]

ما شاءالله تبارك الله مجهود مقدر

[@alhassanabuelkhair]

شكراً جزيلاً لحضرتك بارك الله فيكم

[@lakbouche7913]

بارك الله فيك اخي ابو الحسن

[@alhassanabuelkhair]

و بارك الله فيكم وجزاكم الله خيرا

[@mohamedthemri1319]

ممتاز جدا ما تقدمه استاذ نرجو ان لا تتغيب عنا كثيرا

[@alhassanabuelkhair]

شكراً جزيلاً لحضرتك استاذ محمد حاضر من عنيا

[@مهديعثمان-د4ح]

شكرا جزيلا على هذه المجهودات اخي الكريم

[@alhassanabuelkhair]

العفو بارك الله فيكم

[@abdullahalklbani7454]

ابداع فكري خطير تمكين الأفكار في جميع التصاميم الجميلة بارك الله فيك

[@alhassanabuelkhair]

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

[@yahia19761]

جزاك الله خير اخي الحسن ونفعنا بك

[@alhassanabuelkhair]

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

[@tamer_elshahat]

جميل جدا الله ينور عليك استاذ حسن🌹👍

[@alhassanabuelkhair]

شكرا جزيلا لك استاذ تامر من بعض ما عندكم استاذنا الفاضل 🌹🙏🙏

[@afraahedr5869]

@@alhassanabuelkhair ده تواضع العلماء ربنا يحفظكم جميعا

[@AliMohamed-cj3ut]

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

[@AS875]

في انتظار ابداعك يا كبير

[@alhassanabuelkhair]

شكرا جزيلا لك 🌹🙏🙏

[@abdiissam1923]

مرحبا أستاذ و شكرا على الدروس التي تقدمها عند تابع المراحل لم يتم قبول المتغير Sleep نظرتي و ان الاكسل الذي تشتغل عليه فرنسي ارجوك ما هو المتغير النرادف له و شكرا

[@aboodajori7772]

استغني عن Sleep وجرب هيك فقط قم بتغيير القيمة "0.05" Me.Label3.Width = Me.Label3.Width + 0.05

[@marassiacenter7226]

رائع جدا. الرب يوفقك

[@alhassanabuelkhair]

شكرا جزيلا لك 🌹🙏🙏 اللهم آمين نحن و اياكم 🤲

[@Mahmoud-32]

ماشاء الله ربنا يزيدك يارب ❤️

[@alhassanabuelkhair]

الله يعطيك العافية شكراً جزيلاً لحضرتك

[@emadmadi1967]

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

[@alhassanabuelkhair]

و جزاكم الله خيرا على هذا الكلام الطيب

[@zahranzahran9701]

تسلم إيدك ممتااااز

[@alhassanabuelkhair]

الله يعطيك العافيه 🌹🙏🙏

[@mohammedhussein4300]

شكراً يا استاذ

[@alhassanabuelkhair]

العفو 🌹🙏🙏

[@شدادعبدالكريم-ف4د]

ممتاز أخي الحبيب

[@alhassanabuelkhair]

الله يعطيك العافية

[@alyabdaym5495]

بارك الله فيك

[@alhassanabuelkhair]

و بارك الله فيكم

[@dhiyaaalwaeli7816]

ابداع يا استاذ حسن

[@alhassanabuelkhair]

الله يعطيك العافيه 🌹🙏🙏

[@enahmedreda1054]

منتظرينك بكل الحب باشمهندس حسن

[@alhassanabuelkhair]

شكرا جزيلا لك 🌹🙏🙏

[@nassirabouchoul376]

شكرا على كل فيديواستفدنا منه

[@alhassanabuelkhair]

العفو 🌹🙏🙏 بارك الله فيكم وجزاكم الله خيرا

[@alaakhashaba_1497]

السلام عليكم و رحمة الله اشكرك و احيك على اسلوبك في الشرح و السرد وفقك الله .... استاذ الحسن سؤال ليه الجزء الاول من الكود مش شغال و بيظهر عندي باللون الاحمر ؟....... مع خالص الشكر و التقدير

[@alhassanabuelkhair]

و عليكم السلام ورحمه الله وبركاته اى جزء من فضلك تقصد كود اخفاء الإطار

[@alaakhashaba_1497]

@@alhassanabuelkhair بالظبط كود اخفاء الاطار

[@صحالصح-ط6ث]

نفس المشكلة تظهر عندي في النصف الأول من الكود

[@blondialfa9773]

@@صحالصح-ط6ث (فتش على كل كلمة function)و (اجعلهاPtrSafe Function )باذن الله يعمل معك البرنامج

[@Mohammed.Salem.]

احسنت ، ممتاز 👍👍

[@alhassanabuelkhair]

شكراً جزيلاً لحضرتك بارك الله فيكم

[@falihisamir1430]

مميز دائما 😇

[@alhassanabuelkhair]

الله يعطيك العافيه 🌹🙏🙏

[@نادرالمغلس-ذ7ط]

شكرا استاذ حسن على هذه الافكار الرائعة . وارجوا ان تساعدني بحل مشكلتي عندما حاولت تطبيق هذه الشاشة الافتتاحية في جهازي حيث لدي نسخة اوفيس 365 وعندما نسخت الكود يظهر باللون الاحمر في الموجل رقم ١ ارجوا مساعدتي للتجاوز هذه المشكلة .

[@fatima.alfurjani]

نفس مشكلتي اوفس 2021

[@user-ali1991]

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

[@safiashaker3322]

شكرٱ جزيلٱ أستاذنا الفاضل

[@alhassanabuelkhair]

العفو بارك الله فيكم

[@jilalialilach1528]

شرح جميل جزاك الله خيرا المرجوا الإجابة على الاستفسار حل مشكلة عدم ظهور الدالة match في Excel مع العلم لدي اوفيس 2019 و نفس المشكلة في اوفيس 2007

[@Mazigh_15]

Match=equiv

[@احمدأبوطالب-ب4ض]

ممكن عمل كيفية عمل الحساب اليدوي في الاقساط

[@fenghourabdelmalek7284]

ربي يحفظك أخي

[@blondialfa9773]

اذا لم يعمل معاك كود اخفاء الايطار عليك بما يلي (فتش على كل كلمة function)و (اجعلهاPtrSafe Function )باذن الله يعمل معك البرنامج

[@mohammedali4531]

الله يرحم والديك و يفرح قلبك

[@recouvrementadeu4783]

لكن في حالة يطرأخطأ من نوع appcrach كيف تتعامل معه؟. و شكرا

[@احمدحسنين-د7ح]

نجحت شكرا😘🤩😍😄😄😄

[@waheebal-hashidi6333]

شكرا لك اشتغل الكود

[@kiroloshany4350]

ممكن كود استخدام لوحة المفاتيح في تشغيل امر معين

[@alhassanabuelkhair]

ممكن توضيح اكثر المطلوب

[@alialsaqaf]

منتظرين

[@alhassanabuelkhair]

شكرا جزيلا لك 🌹🙏🙏

[@محمدمصطفي-ي6ز1ح]

الله يبارك فيك ياغالي

[@alhassanabuelkhair]

الله يعطيك العافيه 🌹🙏🙏

[@Mahmoud-bs9lw]

مشاء الله تبارك الرحمن مبدع ديما عندى سؤال بسيط .متاح عندى اسم مستخدم وكلمة المرور هل ينفع إذا مستخدم محمود دخل شيت اسمة يكتب فى خلية B1. ولو المستخدم محمد دخل شيت اسمة يكتب فى B2 ..

[@ابوعلي-ر2ق5ر]

السلام عليكم استاذ ممكن كيفية طريقة حساب الوزن من خلال العمر والطول في الاكسل ( دالة )

[@1comicon]

شكرا لك

[@alhassanabuelkhair]

العفو 🌹🙏🙏 بارك الله فيكم

[@ألهمنفسك-ط9ي]

عمل ممتاز

[@alhassanabuelkhair]

شكراً جزيلاً لحضرتك

[@ahmedabof-x4j]

السلام عليكم ورحمه الله وبركاته استاذنا مافيش كود بدلا عن موديل SLeep

[@kamelahmed8618]

عمل غاية في الابداع .. بارك الله فيك استاذ. اذا سمحت اود ان اطلب مساعدة بسيطه: عندي جدول لموظفين وكل موظف لديه ذوي الحقوق. اريد امكانية لاضافة اي مولود جديد للموظف داخل الجدول من اليوزرفورم دون الاخلال بالجدول.. بمعنى اريد امكانية لاضافة بيانات لموظف معين الامر ااذي يحتاج الى اضافة سطر جديد وازاحه البيانات الاخرى للأسفل فهو تعديل وفي نفس الوقت اضافه لهذا لم اتمكن من ايجاد صيغة مناسبه

[@صيحةأمل]

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

[@zahramostafa9101]

الا ممكن اضافة كيف نحمي البرنامج من النقل او النسخ من طرف أشخاص اخرين

[@معمرالجرموزي-ه2ك]

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

[@omarrahim673]

أستاذنا الفاضل ممكن كود الذي نضعه في حالة وضع progressbar الموجود بصندوق ادوات الاكسل والاستغناء عن label2 و label3 وشكرا في انتظار رد حضرتك وفقك الله فيما يرضى وشكرا

[@alhassanabuelkhair]

شكرا جزيلا لك 🌹🙏 سوف نعمل شرح له فى فيديو قادم باذن الله تعالى

[@omarrahim673]

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

[@alhassanabuelkhair]

بارك الله فيكم تقصد أيقونة التحميل ؟!

[@omarrahim673]

@@alhassanabuelkhair نعم بارك الله فيك وشكرا

[@AhmedHamed-xo3fs]

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

[@mohamedeahal]

ربنا يبارك في حضرتك ياهندسة ممكن استدعاء المكتبة ٣٢ و٦٤ لانى عندي جهاز شغل وجهاز فى البيت عايز اظبط المديول يشتغل مرة واحدة سواء الجهاز ده او الاخر وجزاك اللّٰه خيراً ❤

[@alhassanabuelkhair]

بارك الله فيكم للاسف لا يمكن استدعاء المكتبتين معاً

[@mohamedeahal]

@@alhassanabuelkhair تمام شكراً يااستاذنا

[@omarrahim673]

كيف نظيف الأدوات في الاكسل مثلا progress bar و web browser وشكرا

[@alhassanabuelkhair]

إن شاء الله تعالى نعمل عنها شرح فى الفدييوهات القادمة

[@mubarkelmubark9240]

كيف يمكن لت لبحث عن بيانات محددة بين تاريخين باستخدام vb code في فورم

[@alhassanabuelkhair]

شاهد هذا الفيديو و سوف تعرف الطريقة اخى kzbin.info/www/bejne/mIi9g5yhpNGga80

[@kooratv9456]

السلام عليكم جزاك الله خيرا اخي هل يمكن لك شرح برنامج لتتبعه للتمكن من vba او كتب شاملة مع تطبيقات في هذا المجال

[@alhassanabuelkhair]

و عليكم السلام تقصد برنامج كاتب اكواد اكسل

[@ياسرالعراقي-س4ب]

استاذ حسن اتمنى اتواصل معك إذا سمحت إذا سمحت اخوك من العراق

[@alhassanabuelkhair]

اتفضل بالطبع تواصل معنا عبر الواتساب التالى 👇 201114315018

[@صحالصح-ط6ث]

السلام عليكم ورحمة الله وبركاته أسلوب حضرتك جميل جداً في الشرح وجزاك الله كل خير لكن عندي الكود لا يعمل ويظهر نصفه باللون الأحمر من بداية الكود من كلمة Private Declare function الى نهاية اخر سطر يحتوي على "User32" بمعنى أن الجزء الذي يظهر بشكل طبيعي هو من بداية كود الاخفاء من RemoveTitleBar الى النهاية أما ما قبله فيظهر باللون الأحمر

[@alhassanabuelkhair]

و عليكم السلام ورحمه الله ممكن اعرف نسخة الاوفيس لدىك 32 ام 64 بت

[@صحالصح-ط6ث]

@@alhassanabuelkhair 64

[@k.h.khamed1800]

الجواب من فضلك أستاذ ؟؟؟

[@everyapplenews9484]

استاذنا ي ليت لو تعلمنا كيف نقدر نحرك النافذه اذا كانت بدون شريط اعلى

[@alhassanabuelkhair]

اكتب الكود الخاص بتحريك الفورم بدون كود تحريل الشريط

[@mohammedhussein4300]

لو سمحت يا أستاذ ممكن أشيل الإطار الخارجي لليوزرفورم اللى خلف الشاشة الإفتتاحية وهى تمثل قائمة ترحيل البيانات وجزاك الله خيرا🤲👏👏👏

[@youhavetoknow2524]

سلام عليكم ورحمة الله وبركاته بارك الله لك في هذا المجهود الرائع والدئوب اخي الكريم عندي سؤال لو سمحت ارجو الاجابة لقد قمت مؤخرا بأنشاء قاعدة بيانات حسب شرح وخطواتك عالاكسيل. عندما سجل خروج ومن ثم العودة ذهب كل شيء وبقيت شيت واحد بالأسماء فقط ما هي سبب المشكله شكراً لك

[@abdeljelilmohamedabdellahi1501]

أجدت و أفدت. جزاك الله خيرا. لدى تشغيل كود إخفاء الإطار، يكتب لى رسالة "error 53" الملف غير موجود

[@alhassanabuelkhair]

تأكد من وجود موديول اخفاء الإطار و إن يكون متوافق مع نسخة الويندوز لديك

[@abdeljelilmohamedabdellahi1501]

@@alhassanabuelkhair نسخة الويندوز عندى 11

[@emadmadi1967]

جزاك الله خير يا ريت الكود إخفاء الشريط

[@alhassanabuelkhair]

و جزاكم الله خيرا تم ارفاق الملف فى صندوق الوصف تحت الفيديو

[@AhmedSamir-wz5rg]

الملف المرفق لنسخه ٣٢ فقط

[@omerbahweerth1721]

عندي نسخة 64 غيرة اليوزر الى 64 ولاكن المعادلة غير صحيحية يقول هل في تغغير في المعادلة اذا كان اليوزر 64

[@عمر-خ6ع4غ]

استاذ خرج اعمل ملاحظة مثل كل ما اكتب اسم عمر يكتب لحالو ملاحظة عن الاسم بخانة جنبا مستعجل كتيير ويسلمو

[@PcPc-jz4uo]

المكتبة sleep غير موجودة عندي كيف احملها

[@sabrielshowhedi4159]

جربت كود الأخفاء لم يتمشى معى مع ان الويندوز 10 والأوفيس 2016 64 بت ارجو المساعدة

[@kamalmohammed8786]

السلام عليكم اخي الكريم اريد تصميم برنامج اكسل هل ممكن حضرتك تنفذ العمل ؟

[@alhassanabuelkhair]

و عليكم السلام ورحمه الله اتفضل تواصل معنا عبر الواتساب التالى 00201114315018

[@hnoshmuhaden1338]

يعطيك الف عافية يا رب كيف فيني اتواصل معك

[@alhassanabuelkhair]

الله يعطيك العافية تواصل معنا عبر الواتساب التالى 201114315018

[@nnhh2856]

السلام عليكم كيف اتواصل معك أبوالخير

[@alhassanabuelkhair]

و عليكم السلام ورحمه الله اتفضل تواصل معنا عبر الواتساب التالى 👇 00201114315018

[@vxs90]

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

[@OMIGA.SAFARY]

🌹💝

[@alhassanabuelkhair]

شكراً جزيلاً لحضرتك

[@OMIGA.SAFARY]

@@alhassanabuelkhair الشكر ليك ياطيب 💝

[@sabryzein7327]

[@alhassanabuelkhair]

🙏🙏♥️

[@abdulrahman66666]

هناك خطا يظهر ويحدد كلمه function

[@user-ali1991]

استاذ انا عاوز كود باليوزر فورم عندي مثلا في شاشه ادخال البيانات textbox1 اكتب فيه التاريخ يدويا عندما اكتب هذا التاريخ عاوز يعطيني في textbox2 التاريخ تلقائيا بعد 3 سنوات واقدر انقص اشهر من هذه الثلاث سنوات وعند الضغط على اضافه بيانات ينزل عندي داخل الشيت بالعامود الخاص فيه

[@k.h.khamed1800]

جزاك الله خيرا أستاذي دائما متالق ، لكن فيما يخص الكود ، فالجهاز عندي لا يقبله و يقول لي أن أعمل الأبديت . Option explicite

[@blondialfa9773]

(فتش على كل كلمة function)و (اجعلهاPtrSafe Function )باذن الله يعمل معك البرنامج

[@Marlboro5286]

يالغالي استبدلت الكلمه .. ولحد الان م يعمل معي المرجو مساعدتنا.. وشكراً❤

[@ABOJanna-gu1fx]

طيب بعد اذنك ازاي اعمل الفورم دا أثناء عمل كود في الشيت

[@alhassanabuelkhair]

يعنى أيه اثناء عمل كود فى الشيت ؟!

[@ABOJanna-gu1fx]

@@alhassanabuelkhair يعني مثلا انا عملت كود بيوفق بيانات مع بعض ولكن عشان البيانات كتير ف بياخد وقت ..اقدر في الوقت دا يكون الفورم دا شغال ويتناسب مع الوقت اللي بيخدو الكود الاول

[@alhassanabuelkhair]

تقصد تحويل الفورم هذا الى فورم تحميل كالبرامج الـ exe

[@ABOJanna-gu1fx]

@@alhassanabuelkhair اه مظبوط كدا...

[@amrabdullah3856]

ازاي اكتب كلمة سر ثابته

[@ziadshhababoshhab5779]

هل هذا الكود ينفع مع فيجوال بيسك ٦

[@alhassanabuelkhair]

لم اجربه على فيجوال بيست6

[@mostefa27]

اعطاني خطأ 64 BIT مالمقصود

[@dzff26tafa3ol4]

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

[@alhassanabuelkhair]

اتفضل استاذنا الفاضل شاهد هذا الفيديو وسوف تحل المشكلة إن شاء الله تعالى kzbin.info/www/bejne/bZ6mqaijZsiffMk

[@dzff26tafa3ol4]

@@alhassanabuelkhair ماقدرت احل المشكلة لاني عملت البرنامج ب textbox وليست نفس الكواد

[@ramaashraf3953]

كنت محتاجه اتواصل مع حضرتك يا فندم ..اقدر اتواصل ازاى ؟؟

[@alhassanabuelkhair]

اتفضل تواصل معنا عبر الواتساب التالى 👇 00201114315018

[@esamhamed8014]

عندي كلمه sleep مش قابله خالص كل شويه تدي خطأ والصفحه مش راضيه تشتغل علما بأن شغال بنسخه ٢٠١٠ عربي

[@aboodajori7772]

استغني عن Sleep وجرب هيك فقط قم بتغيير القيمة "0.05" Me.Label3.Width = Me.Label3.Width + 0.05

[@mohamedshehta1279]

عندى نسخه 64 نص الكود يظهر باللون الاحمر ولا يعمل وكاتبة بطريقه صحيحة

[@alhassanabuelkhair]

ممكن نتواصل معنا واتساب لتغيير الكود بما يتلائم مع نسخة الاوفيس لديك

[@mohamedshehta1279]

@@alhassanabuelkhair ممكن رقم الواتساب

[@AhmedSamir-wz5rg]

؟

[@afraahedr5869]

السلام عليكم استاذي الفاضل انا نسخة الويندوز عندي 64 وكود اخفاء البار لايعمل عندي

[@alhassanabuelkhair]

و عليكم السلام ورحمه الله تأكد من كتابة كود الاخفاء فى موديول مستقل و لا يكون فوقه اى كود Option Explicit Private Declare Function FindWindow Lib "User32" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "User32" _ Alias "GetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "User32" _ Alias "SetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "User32" ( _ ByVal hwnd As Long) As Long Sub RemoveTitleBar(frm As Object) Dim lStyle As Long Dim hMenu As Long Dim mhWndForm As Long If Val(Application.Version) < 9 Then mhWndForm = FindWindow("ThunderXFrame", frm.Caption) 'for Office 97 version Else mhWndForm = FindWindow("ThunderDFrame", frm.Caption) 'for office 2000 or above End If lStyle = GetWindowLong(mhWndForm, -16) lStyle = lStyle And Not &HC00000 SetWindowLong mhWndForm, -16, lStyle DrawMenuBar mhWndForm End Sub

[@fatima.alfurjani]

@@alhassanabuelkhair للاسف الكود لايعمل مع ان الشرح ممتاز 😢

[@afraahedr5869]

كيف احل المشكلة

[@alhassanabuelkhair]

ممكن اعرف ما نواة اصدار الاوفيس لديك 32 ام 64 بت

[@afraahedr5869]

@@alhassanabuelkhair ماعندي علم والله بس كيف اعرف ؟

[@abdulrahman66666]

هذا الكود للانظمة التي تعمل بنظام ال32 وليس64 هل ممكن ان نعرف التعديل المناسب حتي تناسب ال64؟ Option Explicit Private Declare Function FindWindow Lib "User32" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "User32" _ Alias "GetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "User32" _ Alias "SetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "User32" ( _ ByVal hwnd As Long) As Long Sub RemoveTitleBar(frm As Object) Dim lStyle As Long Dim hMenu As Long Dim mhWndForm As Long If Val(Application.Version) < 9 Then mhWndForm = FindWindow("ThunderXFrame", frm.Caption) 'for Office 97 version Else mhWndForm = FindWindow("ThunderDFrame", frm.Caption) 'for office 2000 or above End If lStyle = GetWindowLong(mhWndForm, -16) lStyle = lStyle And Not &HC00000 SetWindowLong mhWndForm, -16, lStyle DrawMenuBar mhWndForm End Sub

[@وائلعمر-ع8ذ]

جزاكم الله خيرا.

[@alhassanabuelkhair]

و جزاكم الله خيرأً استاذ وائل

[@صيحةأمل]

شكرا لحضرتك

[@alhassanabuelkhair]

العفو 🌹🙏🙏

[@its1jerry]

شكرا أخي

[@alhassanabuelkhair]

العفو اخى الكريم

[@ghaniahel4167]

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

[@alhassanabuelkhair]

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