ابو حمادة قام بنشر يناير 11, 2016 مشاركة قام بنشر يناير 11, 2016 السلام عليكم ورحمة الله تعالي وبركاته اساتذى الافاضل لي طلب ارجو الاهتمام به بعد اذن الجميع المطلوب كود لحفظ المستند حسب الاسم الموجود في ( ComboBox1 ) في الدريف ( D ) في مجلد اسمة ( شئون ادارية ) مع الاحتفاظ بالاكواد الموجوده في ( Workbook_BeforeSave) و ( Workbook_Open) اتمنى يتم عمل كود يكون متوافق مع الاكواد الموجوده بحيث لا يتم خطأ وتضارب في الاكواد ملحوظة الملف لا يفتح برجاء عدم تفعيل الماكرو للاطلاع علي الملف المرفق لتتمكن من فتح الملف حفظ باسم.rar رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر يناير 11, 2016 مشاركة قام بنشر يناير 11, 2016 السلام عليكم ورحمة الله تفضل اخي ابو حمادة الملف المرفق إن شاء الله حسب ماطلبت وإذا فيه أي ملاحظة الجميع مابنقصر معاك كلا من جهته. تم عمل المطلوب دون المساس بما ذكرت فقط قمت بتعطيل الاكواد اللي في حدث فتح المصنف ( Workbook_Open) واللي في حدث قبل حفظ المصنف ( Workbook_BeforeSave) لكي يفتح الملف لانه عند التنزيل ممكن لايكون في مسار المجلد او تغيير إسم الملف فلن يفتح الملف ولن تستفيد منه شئ وتستطيع بعد التشييك وعمل اللازم إزالة تعطيل الاكواد بإزالة الفاصلة. لكن قبل العمل علي الملف لازم ان تنشئ مجلد بإسم شئون ادارية علي الدرايف D .كذلك تستطيع ان تكتب في الكمبوبكس إسم وتضغط زر حفظ بهذا الاسم ولو الف اسم ستلاقيهم في المجلد شئون ادارية مع تحيات اخوكم في الله / ابو الحسن والحسين حفظ باسم.rar 1 رابط هذا التعليق شارك More sharing options...
ابو حمادة قام بنشر يناير 12, 2016 الكاتب مشاركة قام بنشر يناير 12, 2016 (معدل) شكرا لك علي اهتمامك عند فتح الملف به خطأ في هذا السطر بيظهر باللون الاحمر علما اني اعمل علي اوفيس 2007 بالنسبة للكتابه في الكمبوبكس لو تم كتابه اي اسم هل سيتم فتح الملف بالرغم من ان الكود لا يسمح بفتح الملف ال بالاسم الموجود في الخليه ( z1 ) ولا لازم يتم الحفظ بنفس الاسم عشان يفتح انا كنت عامله اختياري عشان يتم الحفظ بالاسم الموجود في الخليه يريت توضحلى النقطه دي ويريت توضحلي هل من الممكن اضافه رقم مع الاسم بحيث لا يتم الحفظ باسم مرتين او اكثر انا عامل معادله من الداخل في الخليه بحيث مع الضغط علي مفتاح الحفظ بيتم اضافة رقم مع الاسم لعدم تشابه الاسماء في مكان واحد لانك تعلم بانه لا ينفع حفظ ملف بنفس الاسم في مكان واحد private declare ptrsafe function makkesuredirectorypathexists lib " imagehip.dll"(byval lppath as string)aslong تم تعديل يناير 12, 2016 بواسطه ابو حمادة رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر يناير 12, 2016 مشاركة قام بنشر يناير 12, 2016 (معدل) السلام عليكم ورحمة الله private declare ptrsafe function makkesuredirectorypathexists lib " imagehip.dll"(byval lppath as string)aslong حاول تشيل Ptrsafe اللي باللون الاحمر ليصبح الكود : private declare function makkesuredirectorypathexists lib " imagehip.dll"(byval lppath as string)aslong إن شاء الله تضبط معاك انا اعمل علي اوفيس 2013 نظام 64 بت والكلمة تخص نظام 64 بت تم تعديل يناير 12, 2016 بواسطه KHMB ليصبح الكود ...... 1 رابط هذا التعليق شارك More sharing options...
ابو حمادة قام بنشر يناير 12, 2016 الكاتب مشاركة قام بنشر يناير 12, 2016 تمام كدا استاذي الفاضل كان عندى استفسار بس هل ممكن عمل شئ يتم اضافه رقم مع الاسم 1-2-3-4 وهكذا ونفس الوقت يتم اضافه الاسم في الخليه () بحيث عند فتح الملف لا تظهر رسالة ان الاسم تم تغييره رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر يناير 12, 2016 مشاركة قام بنشر يناير 12, 2016 انا عملت الملاحظات وسوف اعمل عليها إن شاء الله اترك لي فرصة لان الوقت متأخر 1 رابط هذا التعليق شارك More sharing options...
ابو حمادة قام بنشر يناير 12, 2016 الكاتب مشاركة قام بنشر يناير 12, 2016 مش عارف اشكرك بجد ازاى واسف لو كنت متقل عليك بطلباتي 1 رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر يناير 12, 2016 مشاركة قام بنشر يناير 12, 2016 كل ملاحظاتك ممكن وإذا لي أي استفسار سأستوضح منك 1 رابط هذا التعليق شارك More sharing options...
ابو حمادة قام بنشر يناير 12, 2016 الكاتب مشاركة قام بنشر يناير 12, 2016 الله المستعان لك مني تحياتى 1 رابط هذا التعليق شارك More sharing options...
أبو قاسم قام بنشر يناير 12, 2016 مشاركة قام بنشر يناير 12, 2016 حلول جميلة هل ممكن حفظ الملف بصيغة xlsx وعدم تغيير ملفك إلى الملف الجديد 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 12, 2016 مشاركة قام بنشر يناير 12, 2016 أخي الحبيب أبا الحسن والحسين .. بارك الله فيك وجزيت خيراً على إبداعاتك المتواصلة .واصل بلا فواصل أخي الفاضل أبو حماده جرب التعديل في هذا السطر (بإضافة الرقم المطلوب إضافته) MyFileName = Form1.ComboBox1.Value & " 1" تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر يناير 12, 2016 مشاركة قام بنشر يناير 12, 2016 السلام عليكم ورحمة الله اخي العزيز واستاذنا الفاضل ومشرفنا الغالي ياسر خليل شرفنى مروركم وردكم العطر وتعديلكم جزاك الله خير وبارك فيك الاخ الفاضل كاسر الامواج شكرا علي مرورك العطر جزاك الله خير بالنسبة لما ذكرت ممكن .اذا محتاج لها ضروري اعمل موضوع جديد لكي يشاهدها الكثير من الاعضاء والمتمكنين لكي يعجلوا في عملها هي ليست صعبه وإن شاء الله الأخوة الأعضاء يشوفوها وبيحلوها لك سريع واعذرني . رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر يناير 12, 2016 مشاركة قام بنشر يناير 12, 2016 السلام عليكم ورحمة الله اخي ابو حمادة 10 ساعات مضت, ابو حمادة said: شكرا لك علي اهتمامك عند فتح الملف به خطأ في هذا السطر بيظهر باللون الاحمر علما اني اعمل علي اوفيس 2007 بالنسبة للكتابه في الكمبوبكس لو تم كتابه اي اسم هل سيتم فتح الملف بالرغم من ان الكود لا يسمح بفتح الملف ال بالاسم الموجود في الخليه ( z1 ) ولا لازم يتم الحفظ بنفس الاسم عشان يفتح انا كنت عامله اختياري عشان يتم الحفظ بالاسم الموجود في الخليه يريت توضحلى النقطه دي ويريت توضحلي هل من الممكن اضافه رقم مع الاسم بحيث لا يتم الحفظ باسم مرتين او اكثر انا عامل معادله من الداخل في الخليه بحيث مع الضغط علي مفتاح الحفظ بيتم اضافة رقم مع الاسم لعدم تشابه الاسماء في مكان واحد لانك تعلم بانه لا ينفع حفظ ملف بنفس الاسم في مكان واحد private declare ptrsafe function makkesuredirectorypathexists lib " imagehip.dll"(byval lppath as string)aslong 1- في هذا السطر بيظهر باللون الاحمر علما اني اعمل علي اوفيس 2007 إنتهينا منه 2- بالنسبة للكتابه في الكمبوبكس لو تم كتابه اي اسم هل سيتم فتح الملف بالرغم من ان الكود لا يسمح بفتح الملف ال بالاسم الموجود في الخليه ( z1 ) طبعا لا لن يفتح الملف لانك عندما تحفظ الملف بالاسم ستم حفظ كامل الملف مع الاكواد ولا يتغيًر شي سوى إسم الملف وانت واضع شروط في الملف ان لايفتح إذا تغير المسار او تغير الإسم لكن ممكن في عند الحفظ للاسم الجديد يتم إدراج الاسم الجديد في الخلية (z1) لاجل يتم فتح الملف بناء علي الاسم بالخلية(z1) بحاول لك فيها إن شاء الله. 3- هل من الممكن اضافه رقم مع الاسم بحيث لا يتم الحفظ باسم مرتين او اكثر انا عامل معادله من الداخل في الخليه بحيث مع الضغط علي مفتاح الحفظ بيتم اضافة رقم مع الاسم لعدم تشابه الاسماء في مكان واحد لانك تعلم بانه لا ينفع حفظ ملف بنفس الاسم في مكان واحد. الشق الاول من السؤال تمت الإجابة علية من قبل ( المشرف الاستاذ ياسر خليل ) وإن شاء الله بيشوف الملاحظات وبيساعدنا فيها عندما تعمل حفظ لنفس الاسم كل مرة فستم الحفظ لكن سيستبدل السابق ويحفظ الاخير مع التعديلات عليه إن وجدت أي لايتم التكرار . وانا متأكد ومقيًم الوضع من خلال ردودك بأن اسئلتك تعرف الإجابة عليها ولكن فقط للتأكيد وهذه تعتبر نباهه منك. رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر يناير 12, 2016 مشاركة قام بنشر يناير 12, 2016 السلام عليكم ورحمة الله 4 ساعات مضت, ياسر خليل أبو البراء said: أخي الحبيب أبا الحسن والحسين .. بارك الله فيك وجزيت خيراً على إبداعاتك المتواصلة .واصل بلا فواصل أخي الفاضل أبو حماده جرب التعديل في هذا السطر (بإضافة الرقم المطلوب إضافته) MyFileName = Form1.ComboBox1.Value & " 1" تقبل تحياتي المشكلة ستبقي نفسها عندي فكره بسويها في المساء إن شاء الله الان رائح المقبرة لدفن والدة واحد من الاصدقاء الله يغفر لها اعذرني اخي ابو حمادة رابط هذا التعليق شارك More sharing options...
ابو حمادة قام بنشر يناير 12, 2016 الكاتب مشاركة قام بنشر يناير 12, 2016 استاذي وأخي أبا الحسن والحسين سلام الله عليكم يارب تكون موجود فيه مشكله قبلتني بعد مكانت الدنيا اتظبطت تمام انا عامل فورم به عدة مفاتيح منها اغلاق الملف وعند اغلاق الملف بيظهر فورم اخر به حفظ او بدون حفظ والغاء بعد مركبت الكود بتاع حضرتك الموجود في الملف عند الغلق لا يغلق الملف كاملا يغلق الشيت ويبقي البرنامج شغال مرفق ملف للتوضيح اكثر به اغلب الاكواد اتمني ترتيبها وعمل المطلوب وجزاك الله خيرا انت وكل اعضاء هذا المنتدي KHMB1.rar 1 رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر يناير 12, 2016 مشاركة قام بنشر يناير 12, 2016 السلام عليكم ورحمة الله اخي الفاضل ابو حمادة اطلعت علي الملف اللي ارتأيته ان لاداعي لإستدعاء الفورم UserForm1 ثم عند الضغط علي الزر إغلاق يتم إستدعاء الفورم 8 لاداعي لهذا المشوار من Workbook_Close عند إغلاق الملف يتم إستدعاء UserForm1 واللي به إخيار الحفظ .وعند حفظ الملف يتم حفظه مع التغييرات او الخروج بدون حفظ. ولك الإختيار . سؤالي ماذا حول كود منع تغيير مسار الملف او تغيير إسمه ملاحظاتك اكتبها واحدة تلو الاخرى بالتفصيل مثل : 1- .............. 2- .............. 3-............... وهكذا. رابط هذا التعليق شارك More sharing options...
ابو حمادة قام بنشر يناير 12, 2016 الكاتب مشاركة قام بنشر يناير 12, 2016 شكرا لاهتمامك استاذي ابو الحسن والحسين بالنسبه لسبب ظهور يوزر فورم 1 انا في الشيت الاصلي لاغي كل القوائم في الاكسل ويظهر فورم بيتم العمل من خلاله في كل شئ داخل الاكسل حتى علامة ( x) انا لاغيها ولا تعمل وبداخل الفورم مفتاح لاغلاق الملف والحفظ وايضا مفتاح لاغلاق الملف وهنا بيظهر فورم 8 وبه 3 مفاتيح 1- حفظ 2 - اغلاق بدون حفظ 3 - الغاء الامر وهذه الاوامر كانت تعمل جيدا ولكن بعد تعديل الكود ال حضرتك صنعته وهو جيد فوق ما تتخيل ويؤدي المطلوب فعلا بس تقريبا حصل تضارب بين الاكواد وبعضها وبناء عليه تم الاتي عند اغلاق الفورم لا يغلق كاملا يغلق الورك بوك ولكن يبقي الملف مفتوح المطلوب بالترتيب 1- محاولة ترتيب الاكواد وبعضها 2- تعديل كود الغلق بدون حفظ بحيث لو حبيت اغلق الملف بدون ما احفظ التغييرات يتم غلق الملف كاملا بدون حفظ من خلال المفتاح المخصص كما موضح في فورم 8 هذا هو المطلوب وجزاك الله خيرا 1 رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر يناير 12, 2016 مشاركة قام بنشر يناير 12, 2016 السلام عليكم ورحمة الله تفضل اخي ابو حمادة ازارير حفظ مع الخروج + خروج بدون حفظ + الغاء الامر الثلاث ازرار تعمل كل اللي عليك تزيل كلمة PtrSafe هذا مبدئيا شوف ايش اللي بعدة الاهم ثم الاهم علي واحد واحد بعض الاكواد تتعلق بمتغيرات غير موجودة او انها لاتخص هذا المصنف وين الفورم السابق Form1 هنا مرتبط بالكود بس ازلته وعدلت المهم لاحظ وقل لنا اللي بعده المرفق : KHMB1.rar رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر يناير 13, 2016 مشاركة قام بنشر يناير 13, 2016 السلام عليكم ورحمة الله شكرا على المجهودوالعمل الرائع أبا الحسن والحسين ممكن عمل نسخة الملف باسم وتاريخ كمتال محمد 13/1/2015 حفظ باسم.zip 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.