حفظ نسخه احتياطيه بالكود

[mselmy]

الى محترفى الاكواد

السلام عليكم

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

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

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

وتفضلوا بقبول وافر الاحترام

[علي السحيب]

يمكنك إنشاء نسخة إحتياطية للملف بشكل دائم ولمرة واحدة .. فقط أتبع اللآتي:

1- قف على الملف المعني وإضغط F12.

2- عند خروج نافذة الجهاز .. تجد في أعلاها قائمة أسمها Tools أو أدوات قم بالضغط عليها.

3- أختر General Options أو خيارات عامة .. سيخرج لك مربع حوار به أربع خيارات مهمة وهي:

- عمل نسخة إحتياطية

- وضع كلمة مرور لفتح الملف

- وضع كلمة مرور للتعديل على الملف

- جعل الملف للقراءة فقط

4- قم بالتأشير على المربع الذي بجانب Always Create Backup .. نسخة إحتياطية .. ويمكنك وضع كلمة مرور لفتح الملف أو للتعديل عليه إذا رغبت ذلك.

5- إضغط على OK أو موافق .. ثم إضغط على Save أو حفظ .. وإذا خرجت لك رسالة أختر Yes أو نعم.

وبهذا تكون قد أنشأت نسخة إحتياطية تتحدث في كل مرة تقوم فيها بحفظ الملف،

ولإختصار كل تلك الخطوات استخدم الكود التالي:

Sub CreateBackup()
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path _
& "\" & ActiveWorkbook.Name, CreateBackup:=True
End Sub

___________________.rar