هل يمكن عمل ماكرو لحفظ الملف أ باسم آخر ب ثم اغلاق ب ويكون أ مفتوح

[عاطف عبد العليم محمد]

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

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

 

 

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

 

عندي ملف اسمه b2013  وهو الذي يتم عليه العمل  وعندي ملف هو b2013c

 

أريد بارك الله فيكم  ماكرو يعمل داخل b2013  لحفظ b2013  باسم b2013c   واغلاق b2013c

 ويكون b2013    مفتوح بدون الحفظ

 

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

 

 

[رجب جاويش]

أخى الفاضل

بالنسبة للطلب الثانى

عمل نسخة من الملف باسم جديد

هذا هو الكود المستخدم

Const N_File As String = "b2013c"
Sub save_copy()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'=============================================================
Old_File = ActiveWorkbook.Name
F_path = ActiveWorkbook.Path
ActiveWorkbook.SaveAs Filename:=F_path & "\" & N_File & ".xls"
Workbooks.Open F_path & "\" & Old_File
Workbooks(N_File).Save
Workbooks(N_File).Close
'=============================================================
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

b2013.rar

تم تعديل يونيو 19, 2013 بواسطه رجب جاويش

[عاطف عبد العليم محمد]

استاذي العزيز 

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

هل السطر الأول مكانه صحيح أم يكون مكانه بعد اسم الماكرو  فيكون قبل سطر Old_File = ActiveWorkbook.Name

بعد اذنك انا جعلته كذلك

ولأن الملف فيه ماكرو فقد غيرت الأمتداد ".xls"  إلى "xlsm"

 

التجربة الأولى والثانية  للماكرو توقف الإكسيل عن العمل 

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

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

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

[عاطف عبد العليم محمد]

استاذي العزيز 

 

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

 

جزاك الله الف خيرا  ، وفقك الله

[رجب جاويش]

أخى الفاضل / عاطف

الملف يعمل عندى بشكل سليم

أرجو ارفاق الملف الذى حدثت فيه المشكلة

[عاطف عبد العليم محمد]

اخي الكريم  استاذي رجب جاويش

الملف كبير وبه الشغل كله و أجد حرج في نشر معلومات مكان عملي فاعذرني

و عند حفظ الملف ياخذ وقت وكذلك عند فتحه  وأظن ان ذلك هو السبب والله اعلم

 وعلى العموم قد استفدت من الماكرو الذي تفضلت به واغلاق الملف يدويا ليس شيئا صعبا

لي أمنية أخرى بديلة  

الحفظ التلقائي  المؤقت للملف هل يمكن جعله حفظ مستديم

أو هل يمكن عمل حفظ للملف تلقائيا كل فترة زمنية مثلا 15 دقيقة

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

[رجب جاويش]

أخى الفاضل

مر على هذا الرابط سوف تجد طلبك

من عمل الاخ الحبيب / حمادة عمر فى المشاركة الثانية

http://www.officena.net/ib/index.php?showtopic=46850&hl=%2B%D8%AD%D9%81%D8%B8+%2B%D8%A7%D9%84%D9%85%D9%84%D9%81+%2B%D9%83%D9%84+%2B%D9%81%D8%AA%D8%B1%D8%A9

تم تعديل يونيو 20, 2013 بواسطه رجب جاويش

[عاطف عبد العليم محمد]

جزاك الله وإياه وصاحب الكود خيرا 

ووفقكم الله لما يحب ويرضى

[ايهاب سعيد]

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

[ايهاب سعيد]

الطلب الثاني هل يمكن ان يقوم بعمل نسخة باسمه ولكن للملف المفتوح