هل من كود لعمل حفظ نسخة احتياطيه تلقائيا في الاكسل دوماَ

[عادل جلال]

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

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

هل من كود لحفظ نسخة احتياطيه تلقائيا في الاكسل دوماَ

بمعنى: اريد ان يقوم الاكسل بحفظ نسخة من الملف تلقائي كلما تم التغير في الملف الاصلي يتم تحديث النسخة تلقائيا

تحياتى

[ابو اسامة العينبوسي]

نعم ممكن

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

و انا اتولى الباقي

[الدكتور خضر الرجبي]

السلام عليكم

أخي عادل جلال ،

الأدة المرفقة (Addin) هي اضافة للإكسيل تضيف نفسها بمجرد تشغيلها إلى الإكسل وتتولى عملية النسخ التلقائية الموقوتة وفيما يأتي رسم لها :

وهذه هي الأدة : setup.rar

وهذا هو مصدر هذه الأدة وبه أدوات أخرى مثيرة ومفيدة :

مع الاحترام والتقدير

[عادل جلال]

الأخ/أبو أسامة

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

أشكرك على سرعة تعاونك

بالنسبة للقرص هو E وأسم الملف هو Adel

بارك الله فيك

تحياتى

[الدكتور خضر الرجبي]

السلام عليكم

أخي عادل جلال ،

أيضا ، إليك الفكرة التالية عن طريق الكود

للقيام بعمل تخزين تلقائي نضع الكود الآتي في ThisWorkbook ويفترض وجود دليل للتخزين وهو (c:\backups)

  Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
     Cancel As Boolean)
    Application.DisplayAlerts = False  'based on Harald Staff 2002-03-07
    Dim Fname as string
    Fname = ActiveWorkbook.Name
    If UCASE(ThisWorkbook.FullName) <> UCASE("c:\backups\" & Fname) Then _
      ThisWorkbook.SaveCopyAs "c:\backups\" & Fname
    Application.DisplayAlerts = True
  End Sub

ومصدر هذه الفكرة إن احببت التوسع في الموضوع هو : موقع أجنبي

مع الاحترام والتقدير

[lord]

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

الاستاذ / خضر الرجبى

تحياتى لاهل فلسطين الحبيبة

بالنسبة الأدة المرفقة (Addin)

يوجد بها استخدامات عديدة هل يمكن شرحها وشرح قوائمها لاننى استخدمت بعضها

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

اشكرك على تواجدك الدائم

[عادل جلال]

الأخ/أبو أسامة

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

أشكرك على سرعة ردك

بارك الله فيك

تحياتى

[ابو اسامة العينبوسي]

السلام عليكم

اذا كان رد الاخ العزيز خضر كافيا و اظنه كذلك فالموضوع تم حله و الا فانا اقول كاتالي :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ThisWorkbook.SaveCopyAs "E:\adel\adel.XLS"

End Sub

انشئ مجلد على القرص e باسم adel

هذا الحدث يتم اي النسخ قبل الاغلاق (اغلاق الملف )

تم تعديل يناير 21, 2007 بواسطه ابو اسامة العينبوسي

[ابوزينب]

اذا كان رد الاخ العزيز خضر كافيا و اظنه كذلك فالموضوع تم حله و الا فانا اقول كاتالي :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ThisWorkbook.SaveCopyAs "E:\adel\adel.XLS"

End Sub

انشئ مجلد على القرص e باسم adel

هذا الحدث يتم اي النسخ قبل الاغلاق (اغلاق الملف )

كلما جربت فى قاعدة بيانات خاصة لا يعمل لا ادرى لماذا