اخفاء الـ UserForm

[أيوب]

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

 

أبحث عن طريقة جعل الــ UserForm

 يعمل  مباشرة في شريط المهام   أي لا  يظهر

 

سلام

[دغيدى]

أخى الكريم

برجاء توضيح أكثر

يفضل تغير اسم الظهور الخاص بكم باللغة العربية .

[أيوب]

شكرا  الأستاذ الكريم  ...

بخصوص التوضيح  ...

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

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

أخرى  ... مشروع الايكسل عندي يفتح مباشرة للفورم

أريده أن يعمل في خفاء  أو يظهر على شريط المهام  أو اي طريقة

مقبولة    تحقق  عدم رؤيته   حتى شفافيته مقبولة

 

بخصوص تغيير اسم الظهور  إن قصدت الاسم   سأرى الطريقة

و افعل ذلك إن شاء الله  

[شوقي ربيع]

السلام عليكم

جرب هذه الحركة

شريط الانتضار.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / أيوب

 

بارك الله فيك

الاخ الحبيب / شوقي ربيع ... جزاك الله خيرا

بالفعل حل جميل وحركة حلوة واظن انه يفي بالغرض مع اخفاء ملف الاكسيل وجعله visible

مع ظهور الفورم خاصتك

وبعد اذنك ... يمكنك اخي / ايوب ايضا باستخدم الكود الموجود في الملف المرفق والخاص بتصغير ملف الاكسيل بجوار الساعة في الفترة التي تريدها

واظهاره بعد انتهاء عمليه الاستدعاء

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

 

 

 

تصغير الملف2003.rar

2007تصغير_الفورم إلى جوار_ الساعة.rar

[أيوب]

جميل جدا منكم أخواني  جزاكم الله خيرا

أخي ربيع  بدون شك شريط التحميل  رائع   لكن  في كل الحالات يدل على وجود

ايكسل يعمل   

اطلعت على  ملف واحد من مشاركة أخي عمر المرفق الاول كوني لاأملك اصدار

غير 2003

في مثالك  توجد حركة  تهمني كثيرا في كيفية توظيفها  وهي عندما أضغط على الزر

يصبح الفورم بجوار الساعة    رائع   لكن  أخوك يحتاج لهذه الحركة بالذات مباشرة

علما أن ملفي فيه خاصية الفتح مباشرة في الفوريم   كيف أوظف ما تفضلت به

حسب طلبي 

 

بعيدا عن كل هذا  .....  احتراماتي و تقديري لكما  و الله يوفقكم جميعا

[احمد فضيله]

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

[مجدى يونس]

جميل جدا التنافس الرائع لمساعدة الاخرين

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

اعمالى الاخيرة بالمنتدى

http://www.officena.net/ib/index.php?showtopic=46472

 

 

[الجزيرة]

رائع أخي حماده

 

أحسنت صنعاً :)

[أيوب]

.....  لم أتمكن من  استخراج  أمر تصغير القورم بجانب الساعة لوحده 

...  حتى استغله مباشرة  في الحدث Workbook_Open

 

على كل عميق  شكري

تم تعديل أبريل 30, 2013 بواسطه أيوب

[شوقي ربيع]

هل هذا هو المطلوب

تصغير الفورم إلى جوار الساعة.rar

[حمادة عمر]

السلام عليكم

الاستاذ الغالي / احمد فضيله

الاستاذ القدير / مجدى يونس

الاستاذ / الجزيرة

 

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

انتم من علمتمونا التسابق لفعل الخير

جزيل الشكر لمروركم الكريم

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

[حمادة عمر]

السلام عليكم

الاخ الحبيب / شوقي ربيع

 

بارك الله فيك

دائما تسارع الي الخير

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

[أيوب]

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

المرفق المرسل من طرفكم   عند تشغيله  يخبرني  بأنه لم يتم

العثور على الماكرو

ربما الخلل من عندي   أحببت التأكد

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

تم تعديل أبريل 30, 2013 بواسطه أيوب

[أيوب]

بالمناسبة  حتى لا أأسس لنفسي ثقافة استهلاك

وعد مني احبائي   أن  أرسل لكم منتوج هذا العمل

الذي مفاده  بالـاكيد يهمكم جميعا  و هي استدعاء محتوى

خلية الى عناصر ادخال لبرامج تنفيذية  لذلك تجدني اسعى لإخفاء كل 

ما تعلق بالايكسل  حتى نحقق سلاسة في  هذه المزاوجة  

[شوقي ربيع]

اخي الكريم الملف عندي يشتغل عادي

خيث عند فتحه  ينزل الاكسل والفورم معا جوار الساعة

وعند الضغط على ايقونت الاكسل مرتين يضهر الفورم وحده

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

 Dim Me_hWnd As Long, Me_Icon As Long, Me_Icon_Handle As Long, IconPath As String

Private Sub Workbook_Open()

 Me_hWnd = FindWindowd("ThunderDFrame", UserForm1.Caption)
 IconPath = Application.Path & Application.PathSeparator & "excel.exe"
 Me_Icon_Handle = ExtractIcond(0, IconPath, 0)
 Hook Me_hWnd

AddIconToTray Me_hWnd, 0, Me_Icon_Handle, "ÃäÞÑ åäÇ áÅÙåÇÑ ÇáÈÑäÇãÌ"
UserForm1.Hide

End Sub

[ضاحي الغريب]

أخي الحبيب // شوقي ربيع (( ملك الحركات))

تمت تجربة الملف ويعمل بكفاءة

كود كله حركات 

بارك الله لك

والشكر موصول لاخي الحبيب ابو سما (ا.حمادة عمر )

تقبلوا تحياتي

[شوقي ربيع]

قلت لك انك القلب النابض

فبك يسري الدم في العروق اخي ضاحي

شكرا لتعقيبك

[حمادة عمر]

السلام عليكم

الاخ الحبيب / شوقي ربيع

الاخ الحبيب / ضاحي الغريب

 

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

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

[أيوب]

لم استطع  الاطلاع على الملف  شكرا 

تم تعديل أبريل 30, 2013 بواسطه أيوب