الردود والاستفسارات عن دروس الفيجوال بيسك6 والاكسيل ياسر العربي

[إبراهيم ابوليله]

تسلم ياعم ياسر

بارك الله فيك

على العموم بالنسبه لجعلها نصيه هتكون اسهل فعلا

بس انا حبيت اعمل كده

لقتها هتاخد وقت

علشان الليبل مش بيبان فيه الكود لما بعمله لصق

ياريت لوعندك فكره ازاى اخليها نصيه

.................................................................

اما ربط الفيجوال

مفهوش مشكله ولا حاجه

بس الفرق

لو فاكر انت عندك الملف مش بيظهر

صح يعنى الملف بتاع الاكسيل مخفى

انا بقى عندى بيظهر وبيطلب باسورد 123

ارجو تكون الفكره وصلت

.......................................

اشكرك على التشجيع الطيب

تقبل تحياتى

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

حبيبي واخي ابراهيم

لحل مشكلة كتابة الاكواد اعملها في تكست بوكس  وغير كما بالصورة

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

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

تفضل الكود التالي

Dim strPassword As String
strPassword = "01097192367"
YXL.Workbooks.Open App.Path & "/aseel.xlsx", UpdateLinks:=0, Password:="" & strPassword & ""

اي خدمة

[إبراهيم ابوليله]

تم التعديل

تم جعل فك حماية الملف

تكون من داخل الفيجوال

جرب المرفق

تقبل تحياتى

 

VBA.rar

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

فيه مشكلة في ملف الاكسيل نفسه .؟؟؟

مش بفتح اساسا لوحده

[إبراهيم ابوليله]

المفروض الملف محمى

برقم سرى 123

 

انا نزلت المرفق عندى

وفتكيت الضغط

واشتغل عادى

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

اعرف اخي الغالي 

ولكن هذا لا يحدث عندي لا يظهر حتى ادخل كلمة المرور ويجي البرنامج فارغ يمكن مجموعة الاوفيس اللي هنا بتشغل علي كييفها هي 2007

المهم انا عملت ملف عندي وعملت له كلمة مرور واشتغل عادي وبيطلب كلمة المرور 

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

علي العموم هبقى اجربه في البيت باذن الله

مشكور 

[إبراهيم ابوليله]

اخى ياسر

ممكن توضيح بسيط

Dim strPassword As String
strPassword = "01097192367"
YXL.Workbooks.Open App.Path & "/aseel.xlsx", UpdateLinks:=0, Password:="" & strPassword & ""

PASSWORD:=""

هل هنا يتم حزف الباسورد

ام ماذا

وايه الفرق بين الكود بتاعك والكود الاتى

Dim NAME As String
NAME = Text5.Text
YXL.Workbooks.Open App.Path & "\" & NAME, Password:=Text6

 

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

اخي الغالي

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

الباسوورد كدا

Password:="01097192367"

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

في اغلب الاحيان يتم كتابتها بين قوسين والاضمن لعدم وجود اخطاء

طيب لما نعرفها كمتغير

لو كتبناها كدا

زي ما عرفناها

Dim strPassword As String
strPassword = "01097192367"

Password:="strPassword"

كدا خطأ لانه هيتعامل كانه نص عادي

يبقي لازم يخرج بره الاقواس زي كدا

Password:="" & strPassword & ""

وصلت حافظنا على تواجد الاقواس مع ادراج قيمة المتغير بينهم

وللعلم تعمل احيانا هكذا ولكن لست اضمنها في معظم الحالات

Password:=strPassword

اما اذا كنت تريد تطبيق ما تريده يبقي هكذا

Dim NAME As String
NAME = Text5.Text
YXL.Workbooks.Open App.Path & "/aseel.xlsx", UpdateLinks:=0, Password:="" & NAME & ""
او هكذا 
YXL.Workbooks.Open App.Path & "/aseel.xlsx", UpdateLinks:=0, Password:=NAME

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

او هكذا  اذا كان هذا ما تقصد

Dim NAME As String
NAME = Text5.Text
YXL.Workbooks.Open App.Path &  "/" & NAME, UpdateLinks:=0, Password:="" & Text6.text & ""
او هكذا 
YXL.Workbooks.Open App.Path & "/" & NAME , UpdateLinks:=0, Password:=Text6.text

 

تم تعديل يناير 5, 2016 بواسطه ياسر العربى

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

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

أخي الغالي " ياسر العربي " .. قمت بإضافة الكاين و قمت بتغيير خاصيّة ال MIN و ال MAX .. إلى FALSE ..لكن لم يشتغل معي الأمر ..لاحظ الصّور لو سمحت ..

 

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

اخي الغالي هذا ما اقصده

[محمد حسن المحمد]

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

أرفق لكم صورة عن ملف الميديا بلير الذي أرجو أن تتاح لي فرصة عرضه على حضراتكم غدا إن شاء الله تعالى...تقبلوا تحياتي ومحبتي..

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

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

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

يلا عاوزين نشوف باذن الله الملف بقي ومعاه مقطع صوتي مؤثر كدا

تقبل تحياتي

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

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

يا غالي .. يا أبا يوسف ..

سلمْتَ و سلِمتْ يمينك على هذا الشّغل الجبّار ..

خطوة عملاقة موفّقة و مباركة بإذن الله المولى القدير ..

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

هل هذا الأمر متاح أيضًا في الفيجوال بيسك ..

بارك الله فيكما و لكما .. جزاكما الله خيرًا و زادها بميزان حسناتكما

كم هو الشّعور رائع .. أنْ تجد إخوة لك في الدّين .. رغم بعد المسافات لكنّك تشتاق إليهم و تحبّهم كأنّك عشت سنين معهم بمحل واحد

أدام الله العِشرة الطيّبة و جمع بيننا في جناته يارب آمين

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

على فكرة : نحن بانتظارك غدًا بإذن الله يا أبا يوسف

 

[محمد حسن المحمد]

6 دقائق مضت, عبد العزيز البسكري said:

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

يا غالي .. يا أبا يوسف ..

سلمْتَ و سلِمتْ يمينك على هذا الشّغل الجبّار ..

خطوة عملاقة موفّقة و مباركة بإذن الله المولى القدير ..

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

هل هذا الأمر متاح أيضًا في الفيجوال بيسك ..

بارك الله فيكما و لكما .. جزاكما الله خيرًا و زادها بميزان حسناتكما

كم هو الشّعور رائع .. أنْ تجد إخوة لك في الدّين .. رغم بعد المسافات لكنّك تشتاق إليهم و تحبّهم كأنّك عشت سنين معهم بمحل واحد

أدام الله العِشرة الطيّبة و جمع بيننا في جناته يارب آمين

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

على فكرة : نحن بانتظارك غدًا بإذن الله يا أبا يوسف

 

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

والسلام عليكم.

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

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

يا غالي يا " أبا يوسف "  .. بالنّسبة لي أنا .. لم أستوعب لحدّ الآن هذا الدّرس جيّدًا  .. ما قمت به بالملف الذي أرسلته هو فقط عمليّة نسخ و لصق لملف الفيديو بداخل ملف المشروع ..

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

[محمد حسن المحمد]

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

إخوتي الكرام سأقوم بإرفاق الملف لتشغيل الوسائط راجياً أن ينال إعجابكم

أخي الحبيب ياسر أرجو أن تخبرنا كيف نشغل الملفات السابقة أو اللاحقة.

أخي الحبيب عبد العزيز:أرى أن الأخ الحبيب ياسر قد دلنا على ما يلي:

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

جميعاً ببعضها للوصول إلى الغاية المرجوّة

والسلام عليكم.

 

مشغل وسائط مصطبة ياسر العربي.rar

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

 

6 ساعات مضت, محمد حسن المحمد said:

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

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

عمل جميل تنسيق جيد وسأعمل علي طلبك  

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

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

تقبل تحياتي

 

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

18 ساعات مضت, عبد العزيز البسكري said:

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

اخي الغالي عبد العزيز اي استفسار يرجى 

ذكرالنقاط اللي مش واضحة معاك  ونوضحها ليك اكتر

تم تعديل يناير 5, 2016 بواسطه ياسر العربى

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

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

باسم الله .. ما شاء الله .. تبارك الله

بكل إعجاب أبارك هذه اللّمسة المميّزة و الممتازة

واصل إبداعاتك يا غالي .. يا " أبا يوسف " .. و أكيد منكَ .. سنستفيد بإذن الله

بارك الله فيك .. جزاك الله خيرًا و زادك من علمه و فضله

فائق إحتراماتي و إعجاباتي

 

[إبراهيم ابوليله]

اخى ياسر

تم التعديل كما تفضل

كما تم اضافة فورم جديد

تقبل تحياتى

 

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

في 1/4/2016 at 21:49, عبد العزيز البسكري said:

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

تفضل اخي عبد العزيز

استيراد الفورمات والموديولات كما بالصورة

والحفظ طبعا كدا كدا انت بتحفظه داخل المشروع

2 ساعات مضت, إبراهيم ابوليله said:

اخى ياسر

تم التعديل كما تفضل

كما تم اضافة فورم جديد

تقبل تحياتى

 

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

 

[إبراهيم ابوليله]

اخى ياسر

تم التعديل كما تفضل

كما تم اضافة فورم جديد

...............................................

باقى الدرس الاخير

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

ثم يتم اضافته اى المشروع

...........................................

تقبل تحياتى

VB6.rar

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

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

انت ممكن تعمل ربط الفيجوال بالاكسيل ربط تام  بحيث يطلع ليك برنامج متكامل بالفيجوال 

يلا ربنا يعينك ومنتظرين برنامج مزدوج منك يجمع الفيجوال بالاكسيل اللي انا عن نفسي لم يسعفني الوقت لعمل برنامج متكامل 

بارك الله فيك وسدد خطاك 

الى ما فيه خير باذن الله

تقبل تحياتي

ياسر العربي

[إبراهيم ابوليله]

خطأ اثناء فتح الملف

تم تعديل يناير 6, 2016 بواسطه إبراهيم ابوليله

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

صوره لشكل الفورم؟

واسماء الادوات ؟

ودائما عند اضافة فورم جديد او ا داوات قم بعمل حفظ اولا 

تم تعديل يناير 6, 2016 بواسطه ياسر العربى