بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم لاوفيس
كيفية عمل نسخة احتياطية من ملف الاكسل
كود جديد من مكتبة اكواد اكسل VBA
- كثيرا ما نحتاج فى عملنا الى انشاء نسخة احتياطية من ملف العمل وذلك لحفظ البيانات والداتا الموجودة داخل ملف العمل من التلف او الفقد خصوصا اذا كان هذا الملف ملف مهم مثل اليومية الامريكية او ملف حسابات خاص بنا
- يقوم الكود بعمل نسخة احتياطية من الملف بنفس تاريخ اليوم اى انة فى كل يوم سيتم عمل نسخة احتياطية بنفس تاريخ اليوم الحالى
الكود
Sub filebackup()
ThisWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & _
"\" & Format(Date, "mm-dd-yy") & " " & _
ThisWorkbook.Name
MsgBox "تم عمل نسخة احتياطية"
End Sub
كود سهل جدا وبسيط ولاغنى عنة فى ملف العمل