اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

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

اساتذى الافاضل

لي طلب ارجو الاهتمام به بعد اذن الجميع

المطلوب
كود لحفظ المستند حسب الاسم الموجود في ( ComboBox1 )
في الدريف ( D ) في مجلد اسمة ( شئون ادارية )
مع الاحتفاظ بالاكواد الموجوده في (  Workbook_BeforeSave) و ( Workbook_Open)
اتمنى يتم عمل كود يكون متوافق مع الاكواد الموجوده بحيث لا يتم خطأ وتضارب في الاكواد

ملحوظة الملف لا يفتح برجاء عدم تفعيل الماكرو للاطلاع علي الملف المرفق لتتمكن من فتح الملف

حفظ باسم.rar

 

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

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

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

   تم عمل المطلوب دون المساس بما ذكرت فقط قمت بتعطيل الاكواد اللي في حدث فتح المصنف ( Workbook_Open) واللي في حدث قبل حفظ المصنف (  Workbook_BeforeSave) لكي يفتح الملف لانه عند التنزيل ممكن لايكون في مسار المجلد او تغيير إسم الملف فلن يفتح الملف ولن تستفيد منه شئ وتستطيع بعد التشييك وعمل اللازم إزالة تعطيل الاكواد بإزالة الفاصلة. لكن قبل العمل علي الملف لازم ان تنشئ مجلد بإسم شئون ادارية علي الدرايف D .كذلك تستطيع ان تكتب في الكمبوبكس إسم وتضغط زر حفظ بهذا الاسم ولو الف اسم ستلاقيهم في المجلد شئون ادارية  

          مع تحيات اخوكم في الله / ابو الحسن والحسين   

حفظ باسم.rar

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

شكرا لك علي اهتمامك

عند فتح الملف به خطأ

في هذا السطر بيظهر باللون الاحمر  علما اني اعمل علي اوفيس 2007

بالنسبة للكتابه في الكمبوبكس لو تم كتابه اي اسم هل سيتم فتح الملف بالرغم من ان الكود لا يسمح بفتح الملف ال بالاسم الموجود في الخليه ( z1 )

ولا لازم يتم الحفظ بنفس الاسم عشان يفتح انا كنت عامله اختياري عشان يتم الحفظ بالاسم الموجود في الخليه يريت توضحلى النقطه دي ويريت توضحلي هل من الممكن اضافه رقم مع الاسم بحيث لا يتم الحفظ باسم مرتين او اكثر انا عامل معادله من الداخل في الخليه بحيث مع الضغط علي مفتاح الحفظ بيتم اضافة رقم مع الاسم لعدم تشابه الاسماء في مكان واحد لانك تعلم بانه لا ينفع حفظ ملف بنفس الاسم في مكان واحد

private declare ptrsafe function makkesuredirectorypathexists lib " imagehip.dll"(byval lppath as string)aslong

 

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

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

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 بت

تم تعديل بواسطه KHMB
ليصبح الكود ......
  • Like 1
رابط هذا التعليق
شارك

تمام كدا استاذي الفاضل

كان عندى استفسار بس هل ممكن عمل شئ يتم اضافه رقم مع الاسم 1-2-3-4 وهكذا ونفس الوقت يتم اضافه الاسم في الخليه () بحيث عند فتح الملف لا تظهر رسالة ان الاسم تم تغييره

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

أخي الحبيب أبا الحسن والحسين ..

بارك الله فيك وجزيت خيراً على إبداعاتك المتواصلة .واصل بلا فواصل

أخي الفاضل أبو حماده

جرب التعديل في هذا السطر (بإضافة الرقم المطلوب إضافته)

MyFileName = Form1.ComboBox1.Value & " 1"

تقبل تحياتي

index.jpg.c75582e64a4e3024fac8f5111a6151

 

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

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

اخي العزيز واستاذنا  الفاضل ومشرفنا الغالي ياسر خليل

شرفنى مروركم وردكم العطر وتعديلكم جزاك الله خير وبارك فيك

 

 

الاخ الفاضل كاسر الامواج شكرا علي مرورك العطر جزاك الله خير

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

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

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

اخي ابو حمادة

10 ساعات مضت, ابو حمادة said:

شكرا لك علي اهتمامك

عند فتح الملف به خطأ

في هذا السطر بيظهر باللون الاحمر  علما اني اعمل علي اوفيس 2007

بالنسبة للكتابه في الكمبوبكس لو تم كتابه اي اسم هل سيتم فتح الملف بالرغم من ان الكود لا يسمح بفتح الملف ال بالاسم الموجود في الخليه ( z1 )

ولا لازم يتم الحفظ بنفس الاسم عشان يفتح انا كنت عامله اختياري عشان يتم الحفظ بالاسم الموجود في الخليه يريت توضحلى النقطه دي ويريت توضحلي هل من الممكن اضافه رقم مع الاسم بحيث لا يتم الحفظ باسم مرتين او اكثر انا عامل معادله من الداخل في الخليه بحيث مع الضغط علي مفتاح الحفظ بيتم اضافة رقم مع الاسم لعدم تشابه الاسماء في مكان واحد لانك تعلم بانه لا ينفع حفظ ملف بنفس الاسم في مكان واحد

private declare ptrsafe function makkesuredirectorypathexists lib " imagehip.dll"(byval lppath as string)aslong

 

1- في هذا السطر بيظهر باللون الاحمر  علما اني اعمل علي اوفيس 2007

إنتهينا منه

2- بالنسبة للكتابه في الكمبوبكس لو تم كتابه اي اسم هل سيتم فتح الملف بالرغم من ان الكود لا يسمح بفتح الملف ال بالاسم الموجود في الخليه ( z1 )

طبعا لا لن يفتح الملف لانك عندما تحفظ الملف بالاسم ستم حفظ كامل الملف مع الاكواد ولا يتغيًر شي سوى إسم الملف وانت واضع شروط في الملف ان لايفتح إذا تغير المسار او تغير الإسم

لكن ممكن في عند الحفظ للاسم الجديد يتم إدراج الاسم الجديد في الخلية (z1)  لاجل يتم فتح الملف بناء علي الاسم بالخلية(z1) بحاول لك فيها إن شاء الله.

3- هل من الممكن اضافه رقم مع الاسم بحيث لا يتم الحفظ باسم مرتين او اكثر انا عامل معادله من الداخل في الخليه بحيث مع الضغط علي مفتاح الحفظ بيتم اضافة رقم مع الاسم لعدم تشابه الاسماء في مكان واحد لانك تعلم بانه لا ينفع حفظ ملف بنفس الاسم في مكان واحد.

الشق الاول من السؤال تمت الإجابة علية من قبل ( المشرف الاستاذ ياسر خليل ) وإن شاء الله بيشوف الملاحظات وبيساعدنا فيها 

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

وانا متأكد ومقيًم الوضع من خلال ردودك بأن اسئلتك تعرف الإجابة عليها ولكن فقط للتأكيد وهذه تعتبر نباهه منك.

 

 

 

 

 

 

 

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

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

 

 

4 ساعات مضت, ياسر خليل أبو البراء said:

أخي الحبيب أبا الحسن والحسين ..

بارك الله فيك وجزيت خيراً على إبداعاتك المتواصلة .واصل بلا فواصل

أخي الفاضل أبو حماده

جرب التعديل في هذا السطر (بإضافة الرقم المطلوب إضافته)


MyFileName = Form1.ComboBox1.Value & " 1"

تقبل تحياتي

index.jpg.c75582e64a4e3024fac8f5111a6151

 

 

 

 

المشكلة ستبقي نفسها

عندي فكره بسويها في المساء إن شاء الله

الان رائح المقبرة لدفن والدة واحد من الاصدقاء الله يغفر لها

اعذرني اخي ابو حمادة

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

استاذي وأخي أبا الحسن والحسين

سلام الله عليكم

يارب تكون موجود

فيه مشكله قبلتني بعد مكانت الدنيا اتظبطت تمام

انا عامل فورم به عدة مفاتيح منها اغلاق الملف وعند اغلاق الملف بيظهر فورم اخر به حفظ او بدون حفظ والغاء

 

بعد مركبت الكود بتاع حضرتك الموجود في الملف  عند الغلق لا يغلق الملف كاملا يغلق الشيت ويبقي البرنامج شغال

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

وجزاك الله خيرا انت وكل اعضاء هذا المنتدي

 

KHMB1.rar

 

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

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

اخي الفاضل ابو حمادة

اطلعت علي الملف

اللي ارتأيته ان لاداعي لإستدعاء الفورم UserForm1 ثم عند الضغط علي الزر إغلاق يتم إستدعاء الفورم 8 لاداعي لهذا المشوار من Workbook_Close  عند إغلاق الملف يتم إستدعاء  UserForm1 واللي به إخيار الحفظ .وعند حفظ الملف يتم حفظه مع التغييرات او الخروج بدون حفظ. ولك الإختيار .

سؤالي ماذا حول كود منع تغيير مسار الملف او تغيير إسمه

ملاحظاتك اكتبها واحدة تلو الاخرى بالتفصيل مثل :

1- ..............

2- ..............

3-...............           وهكذا.

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

شكرا لاهتمامك استاذي ابو الحسن والحسين

بالنسبه لسبب ظهور يوزر فورم 1 انا في الشيت الاصلي لاغي كل القوائم في الاكسل ويظهر فورم بيتم العمل من خلاله في كل شئ داخل الاكسل حتى علامة ( x) انا لاغيها ولا تعمل

وبداخل الفورم مفتاح لاغلاق الملف والحفظ وايضا مفتاح لاغلاق الملف وهنا بيظهر فورم 8 وبه 3 مفاتيح 1- حفظ  2 - اغلاق بدون حفظ 3 - الغاء الامر وهذه الاوامر كانت تعمل جيدا ولكن بعد تعديل الكود ال حضرتك صنعته وهو جيد فوق ما تتخيل ويؤدي المطلوب فعلا بس تقريبا حصل تضارب بين الاكواد وبعضها وبناء عليه تم الاتي عند اغلاق الفورم لا يغلق كاملا يغلق الورك بوك ولكن يبقي الملف مفتوح

 

المطلوب بالترتيب

1- محاولة ترتيب الاكواد وبعضها

2- تعديل كود الغلق بدون حفظ بحيث لو حبيت اغلق الملف بدون ما احفظ التغييرات يتم غلق الملف كاملا بدون حفظ  من خلال المفتاح المخصص كما موضح في فورم 8  هذا هو المطلوب

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

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

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

تفضل اخي ابو حمادة

ازارير حفظ مع الخروج  + خروج بدون حفظ + الغاء الامر الثلاث ازرار تعمل

كل اللي عليك تزيل كلمة PtrSafe

هذا مبدئيا شوف ايش اللي بعدة الاهم ثم الاهم علي واحد واحد

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

وين الفورم السابق Form1 هنا مرتبط بالكود بس ازلته وعدلت

المهم لاحظ  وقل لنا اللي بعده

المرفق :

KHMB1.rar

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information