اذهب الي المحتوي
أوفيسنا

اخفاء الـ UserForm


أيوب

الردود الموصى بها

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

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

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

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

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

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

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

 

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

 

بارك الله فيك

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

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

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

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

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

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

 

 

 

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

ايكسل يعمل   

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

غير 2003

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

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

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

حسب طلبي 

 

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

رابط هذا التعليق
شارك

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

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

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

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

 

 

19203alsh3er.gif

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

 

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

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

 

بارك الله فيك

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

تم تعديل بواسطه أيوب
رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

 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

  • Like 1
رابط هذا التعليق
شارك

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

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

كود كله حركات 

بارك الله لك

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

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

 

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information