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

كيفية إنشاء نسخة من ملف إكسيل تستحدث تلقائيا عند غلق الملف


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

الاخ الفاضل: الاستاذ mas123

انا ايضا عندى فكرة مشابهه لفكرة الاخ norse

وهى عندى ملف اكسل لتسجيل غياب الطلاب ويسجل علية غياب الطلاب يوميا

فاذا ضاع او اتمسح عن طريق الخطأ يضيع عمل السنة كلها

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

هل ممكن عمل دة اتوماتكيا

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

وفى حاله ضياع الملف او مسحة اذهب الى اخر تاريخ تم حفظة فيه طبعا هيكون بتاريخ اليوم اللى قبلة

هل ممكن؟؟؟ على فكرة فى عالم الكمبيوتر لا يوجد مستحيل!!!!!

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

الاخ الفاضل: الاستاذ mas123

انا ايضا عندى فكرة مشابهه لفكرة الاخ norse

وهى عندى ملف اكسل لتسجيل غياب الطلاب ويسجل علية غياب الطلاب يوميا

فاذا ضاع او اتمسح عن طريق الخطأ يضيع عمل السنة كلها

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

هل ممكن عمل دة اتوماتكيا

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

وفى حاله ضياع الملف او مسحة اذهب الى اخر تاريخ تم حفظة فيه طبعا هيكون بتاريخ اليوم اللى قبلة

هل ممكن؟؟؟ على فكرة فى عالم الكمبيوتر لا يوجد مستحيل!!!!!

تفضلوا

كل ما أمرتم به ينفذ بإذن الله

مفيش حاجة اسمها مستحيل

mas_backup.rar

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

إخوتي

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

تم اكتشافها بعد كتابة الكود للأسف

وهذا الكود بعد التعديل

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWorkbook.Save

Shell "cmd.exe /C copy " & """" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & """" & " " & """" & "c:\" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-AMPM-") & ThisWorkbook.Name & """", 0

End Sub

وتم زيادة كود الحفظ حتى لا يسألك عن حفظ التغييرات

مرفق الملف بعد التعديل

mas_backup2.rar

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

الاخ الفاضل : الاستاذ mas123

بارك الله فيك

نعم هو المطلوب

وقمت بتغير المسار الى \D:\backup1

حتى لا تفقد النسخ عند تحميل ويندز جديد وفرمته ال c

شكرا لمرورك أخي صفوت

وهذا مثال

وليس فرضا بقاء المسار على السي

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

فاسمح لي بطلب ( ليس اختبارا لأني على ثقة في أعضاء هذا الصرح ولكن من باب تبادل الخبرات)

عمل شيء يسمح للمستخدم بالاختيار هل يريد عمل نسخة احتياطية عند الخروج

فإذا كانت الإجابة بنعم قام البرنامج بالنسخ

وإلا فلا

ولي اقتراح آخر وهو معرفة عدد النسخ الموجودة في مجلد النسخ الاحتياطي فإذا زادت عن 5 قام البرنامج بحذف الأقدم

كيف يتم ذلك؟؟

حتى نكون قد صممنا نظام للنسخ الاحتياطي يمكن لكلٍ منا وضعه في برنامجه

برجاء التواصل من الإخوة مشرفي وأعضاء المنتدى

فزكاة العلم نشره

وكل عام أنتم بخير

M.A.S

محمد عبد الجواد صالح

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

بسم الله الرحمن الرحيم

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

ثانيا : أشكر الأخ صفوت لتوضيح معنى سؤالي كالعاده.

يا جماعة موضوع النسخ الأحتياطي ده مهم جدا بالنسبة لكل واحد فينا ... والاسباب كتيرة طبعا !!!!!!!!

وانا مع الاخ محمد صالح تماما في اقتراحه واشكره على مجهوده في تنفيذ الفكرة بشكل رائع...

............. جاري التحميل ولي تعقيب آخر بعد التجربة .............

أبو علـــي,,,,,,

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

الاخوة الافاضل

هل ممكن يكون عمل النسخة الاحتياطية فى اليوم مرة واحدة فقط

يعنى يعمل البرنامج النسخة الاحتياطية اول مرة واذا فتح البرنامج فى نفس اليوم اكثر من مرة لا يعمل نسخة اخرى

هى مجرد فكرة ونأمل التنفيذ من عمالقة الاكسل

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

  • 4 years later...
  • 4 years later...
في ١٢‏/٨‏/٢٠٠٩ at 17:06, أ / محمد صالح said:

إخوتي

 

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

 

تم اكتشافها بعد كتابة الكود للأسف

 

وهذا الكود بعد التعديل

 

 

 

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWorkbook.Save

Shell "cmd.exe /C copy " & """" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & """" & " " & """" & "c:\" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-AMPM-") & ThisWorkbook.Name & """", 0

End Sub

 

 

وتم زيادة كود الحفظ حتى لا يسألك عن حفظ التغييرات

 

مرفق الملف بعد التعديل

 

 

mas_backup2.rar

أ / محمد صالح

يعطيك العافية بس ياليت تشرح تفاصيل الكود بالكامل لانه توهني 

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

كل عام وحضرتك بخير وسعادة ورضا

ياريت توضح أي جزء من الكود غامض بالنسبة لك حتى يتم توضيحه أكثر

 

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

وانتى بخير وصحه وسلامه 

كامل الكود ويليت لو فيه شرح فديو يكون افضل 

وتوضح كل شي معناه بالعربي 

وشكرا لردك السريع 

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

استاذى الفاضل محمد صالح

لدى هذا الكود و اعمل به جيدا لعمل نسختين من ملف الاكسيل مع كل اغلاق للملف 

و اريد المساعده فى اجراء تعديل على الكود بحيث يقوم بحفظ نسخه من الملف عند الاغلاق فى فولدر معين و عندفتح الملف و عمل تعديل عليه ثم اغلاقه فيقوم بحفظ نسخه جديده فى فولدر اخر و عند الفتح والاغلاق مره اخرى يقوم بحفظ النسخه فو الفولدر الاول و هكذا بحيث يقوم بالحفظ بالتتابع مره فى الفولدر الاول و المره التاليه فى الفولدر الثانى بحيث يكون لدى دائما اخر تعديلين على الملف

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

لذلك فكرت فى هذا التعديل 

ارجوا ان تكون الفكره واضحه و شكرا جزيلا للمساعده  

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

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

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

Important Information