اذهب الي المحتوي
أوفيسنا

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


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

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

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

 

 

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

 

عندي ملف اسمه 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

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

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

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

هل السطر الأول مكانه صحيح أم يكون مكانه بعد اسم الماكرو  فيكون قبل سطر 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

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

  • 2 months later...

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information