ابو حمادة قام بنشر يناير 7, 2016 قام بنشر يناير 7, 2016 السلام عليكم ورحمة الله تعالي وبركاته الاخوة الكرام ارجو الدخول للمرفق ومساعدتى في عمل الملطلوب ولكم مني جزيل الشكر والاحترام TEST-1.rar TEST-1.rar TEST-1.rar
KHMB قام بنشر يناير 7, 2016 قام بنشر يناير 7, 2016 (معدل) السلام عليكم ورحمة الله MyPath = "D:\الله اكبر" روح علي الدرايف D وأنشئ مجلد بإسم الله اكبر حسب المكتوب بالضبط ثم ضع داخله ملف الاكسل TEST-1 إذا غيًرت اسم المجلد من الله اكبر إلي أي اسم فلابد ات تغًير الاسم الجديد داخل الكود مثلا سميت المجلد علي الدرايف D الي اسم AboHamadah فيكون في الكود كالتالي : MyPath = "D:\AboHamadah" ------------------------------------------------------------------------------------------------------------------------------------------------------------------- إنتبــــــــــــــــــــــــــــــــــــــــــــــه ملفك مكتوب بغير إسم الملف داخل الكود فملفك بإسم TEST-1 وبحروف كبيرة وداخل الكود Text-1 لن يعمل معك الكود MyFlName = "Text-1.xls" الخلاصة : إسم ملفك الفعلي بالضبط ضعه داخل المجلد علي الدرايف D بإمكانك تغيير الدرايف او إسم المجلد او إسم الملف لكن يجب التغيير حسب ماتم توضيحة اعلاه وإذا ماوضحت أي نقطة فلاتتردد في الإستفسار مره ومرتسن وثلاثة ....... اخيكم في الله / ابو الحسن والحسين تم تعديل يناير 7, 2016 بواسطه KHMB
ابو حمادة قام بنشر يناير 7, 2016 الكاتب قام بنشر يناير 7, 2016 (معدل) شكرا اخي الكريم ولكن انت لم تفهم قصدي انا اعي جيدا ما قلته واعلمه تمام ولكنى اريد تغيير الكود بحيث يعمل الكود بناء علي الاسم الموجود بداخل الخليه ( A1 ) بمعني اذا تغير اسم الملف واختلف عن الاسم الموجود بداخل الخليه لا يفتح الملف بمعني ادق اريد تغيير الكود بهذا الشكل MyFlName = Sheets("ورقة1").Range("A1").Select يعني الكود يشوف الاسم الموجود بداخل الخليه لو كان نفس الاسم يفتح ولو متغير عن الاسم الموجود بداخل الخليه لا يفتح الملف اتمنى تكون فكرتى وصلت تم تعديل يناير 7, 2016 بواسطه ابو حمادة
KHMB قام بنشر يناير 7, 2016 قام بنشر يناير 7, 2016 (معدل) ايش اللي تريد وضعة في الخلية A1 هل هو إسم ملف الاكسل او مسار الملف أي المجلد طبعا واضح انة الملف صحيح تم تعديل يناير 7, 2016 بواسطه KHMB 1
ابو حمادة قام بنشر يناير 7, 2016 الكاتب قام بنشر يناير 7, 2016 (معدل) اريد اضع اسم ملف الاكسل في الخلية والكود يعمل بناء علي الاسم الذي اضعه في الخليه تم تعديل يناير 7, 2016 بواسطه ابو حمادة
KHMB قام بنشر يناير 7, 2016 قام بنشر يناير 7, 2016 السلام عليكم ورحمة الله تفضل الملف غير الاسماء اللي ترغب شغًال عندي وتمت التجربة 100 % إن يعمل معاك عندي Office 2013 KHMB.rar نعم حسب طلبك شاهد الملف 1
ابو حمادة قام بنشر يناير 7, 2016 الكاتب قام بنشر يناير 7, 2016 تسلم ايدك ياغالي بجد عمل رائع وهو المطلوب ناقص حاجه وحده فقط ومش عارف ممكن تتعمل ولا لاء وهي ممكن عند تغيير الاسم من الخارج يتم اظهار رساله بان الملف تم تغيير اسمه ولا يمكن فتح الملف ال باسمه 1
KHMB قام بنشر يناير 7, 2016 قام بنشر يناير 7, 2016 (معدل) السلام عليكم ورحمة الله تفضل تظهر الرسالة إذا تغير إسم الملف ويفتح معك الملف وهو لكي تعدل طبعا إذا تبغاه تأتيك الرسالة ثم يغلق أزل علامة التنصيص الفردية ( ' ) التي امام الكود اللي بعد الرسالة 'Application.DisplayAlerts = False 'ThisWorkbook.Close رسالة إذا تغير مسار الملف واخرى إذا تغير إسم الملف الآن خارج بعجاله إذا فيه أي استفسار اتركه إلي غد إن شاء الله ممكن تلاحظني انني موجود فأنا فعلا ما اخرج من النت إلا إذا فصل لحاله فانا اترك الجمل بما حمل لان يوجد آخريين يدخلوا علي ملفات للعمل عليها طبعا خاص بالعمل KHMB.rar تم تعديل يناير 7, 2016 بواسطه KHMB اضفت الكود 1
ابو حمادة قام بنشر يناير 7, 2016 الكاتب قام بنشر يناير 7, 2016 شكرا جدا اخي الكريم بالفعل ظهر رساله عند تغيير الاسم عمل اكثر من رائع بجد ولكن لو كان هناك طريقه افضل بحيث لا يفتح الملف نهائيا لان هذا الكود بالرغم من انه جميل جدا ويؤدي الغرض ولكن يفتح الملف ثم تظهر الرساله ثم يغلق لو امكن منع فتح الملف نهائيا وظهور الرساله عند الفتح يكون الكود افضل واروع لك مني تحياتي هناك موضوع اخر اتمني غدا عند فتح النت ارسل لي رساله ارسلك ملف به استفسار اخر ولك مني الف تحيه وتقدير انى احبك في الله 1
ياسر خليل أبو البراء قام بنشر يناير 7, 2016 قام بنشر يناير 7, 2016 أخي الكريم أبو حماده لم أتابع الموضوع بشكل جيد من البداية لكن يبدو أن أخونا أبا الحسن والحسين أبدع في الإجابة عليك .. بارك الله فيك أبا الحسن والحسين وجزيت خير الجزاء اقباساً من كلامك أخي الفاضل أبو حمادة : 16 دقائق مضت, ابو حمادة said: ولكن لو كان هناك طريقه افضل بحيث لا يفتح الملف نهائيا لان هذا الكود بالرغم من انه جميل جدا ويؤدي الغرض ولكن يفتح الملف ثم تظهر الرساله ثم يغلق لو امكن منع فتح الملف نهائيا وظهور الرساله عند الفتح يكون الكود افضل واروع كيف سيتم تنفيذ الكو بدون فتح ملف الإكسيل .. الكود مرتبط بحدث فتح المصنف الذي يختبر مسار الملف ويرى إذا ما كان مطابق للمسار الفعلي أم لا ..فإذا لم يكن نفس المسار يتم إغلاق الملف .. إذا كنت قد فهمت الأمر مختلف فأعلمني ..أو قم بتوضيح المسألة بشكل أعمق لكي نفهم الفكرة المطلوبة تقبل تحياتي 1
ابو حمادة قام بنشر يناير 7, 2016 الكاتب قام بنشر يناير 7, 2016 هي مجرد فكره في مخى يعنى لو اتعمل للملف application.visible=false
ياسر خليل أبو البراء قام بنشر يناير 7, 2016 قام بنشر يناير 7, 2016 تمام كدا وضحت الفكرة ..إذاً ضع هذا السطر في الكود ليختفي التطبيق ثم تظهر الرسالة في حالة عدم التطابق لمسار الملف مع مسار الملف الموجود في الكود Private Sub Workbook_Open() Dim KHM As String Application.Visible = False KHM = Trim(Sheets("Sheet1").Range("A1")) Dim MyPath As String '************************************************************************************* '''''''' KHMB.xls ويوضع داخله ملف الإكسل KHMB وإسم المجلد D:\ هنا إسم المسار في الدرايف MyPath = "D:\KHMB" '************************************************************************************* If ThisWorkbook.Path <> MyPath Then MsgBox "مسار الملف" & vbNewLine & "تم تغيير مسار الملف ولن يعمل معك إلاً من مسارة الصحيح" 'Application.DisplayAlerts = False Application.Quit Else MsgBox MyPath End If Dim MyFlName As String '************************************************************************************* ''''''' D:\ في الدرايف KHMB وهنا إسم ملف الإكسل يتم وضعة داخل المجلد MyFlName = KHM '************************************************************************************* If ThisWorkbook.Name <> MyFlName Then MsgBox "إسم الملف" & vbNewLine & "لقد تم تغيير إسم الملف ولن يفتح معاك إلاً بإسمة" 'Application.DisplayAlerts = False 'ThisWorkbook.Close Else MsgBox KHM End If End Sub أضفت السطر الذي ذكرته في بداية الكود ..وأضفت سطر لإغلاق التطبيق ككل وليس المصنف فقط بعد الرسالة في حالة عدم التطابق تقبل تحياتي 2
ياسر خليل أبو البراء قام بنشر يناير 7, 2016 قام بنشر يناير 7, 2016 الحمد لله أن تم المطلوب على خير والفضل لله عزوجل ثم لأخونا أبا الحسن والحسين .. الحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي 1
KHMB قام بنشر يناير 8, 2016 قام بنشر يناير 8, 2016 السلام عليكم ورحمة الله اخي واستاذي ومشرفي ياسر خليل ابو البراء بكل صدق اسعدني وشرفني ليس ردكم فقط بل مروركم يكفيني شرفا وحبا .فجزاك الله خير الجزاء وبارك فيك وفعلا احبك في الله وسبق ان جربناك في اخلاقك وحلمك علينا وطيبتك بدون حدود. اخي الفاضل ابوحمادة احبك الله الذي احببتني فيه بارك الله فيك وجزاك الله خير الحمد لله الذي به تتم الصالحات وكان ختامها مسك من قبل المشرف الغالي ابو البراء بوضع اللمسات الاخيره جزاه الله خير 2
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.