JavaScript is not enabled!...Please enable javascript in your browser

جافا سكريبت غير ممكن! ... الرجاء تفعيل الجافا سكريبت في متصفحك.

-->
الصفحة الرئيسية

اكسيل | كيفية عمل نسخة احتياطية من ملف الاكسل Excel VBA Creat Backup of Excel File

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

كيفية عمل نسخة احتياطية من ملف الاكسل 


كود جديد من مكتبة اكواد اكسل VBA

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

كيفية إنشاء نسخة احتياطية من ملف Excel باستخدام VBA.

عندما تعمل على ملف Excel الهام، فقد ترغب في إنشاء نسخة احتياطية منه لتأمين البيانات المهمة وحمايتها من الفقدان أو التلف. يمكنك استخدام VBA (لغة البرمجة المضمنة في Excel) لإنشاء نسخة احتياطية بسهولة.


فيما يلي الخطوات التي يمكنك اتباعها لإنشاء نسخة احتياطية باستخدام VBA:

الخطوة 1: فتح محرر VBA

قم بفتح ملف Excel الذي ترغب في إنشاء نسخة احتياطية منه وانقر على ALT + F11 لفتح محرر VBA.


الخطوة 2: إنشاء الماكرو

في محرر VBA، انقر على "إدراج" في الشريط العلوي ثم اختر "وحدة" من القائمة المنسدلة. سيتم إنشاء وحدة جديدة في المحرر.


الخطوة 3: إضافة الكود البرمجى

داخل وحدة الماكرو الجديدة، قم بنسخ ولصق التعليمات البرمجية التالية:

Sub CreateBackup()

    Dim sourcePath As String

    Dim destinationPath As String

   

    ' تعيين المسار الأصلي للملف

    sourcePath = "C:\Path\To\Your\File.xlsx"

   

    ' تعيين المسار المستهدف للنسخة الاحتياطية

    destinationPath = "C:\Path\To\Your\Backup\File_Backup.xlsx"

   

    ' إلغاء التعليق عن السطر التالي إذا كنت ترغب في إضافة الوقت والتاريخ إلى اسم الملف الاحتياطي

    ' destinationPath = "C:\Path\To\Your\Backup\File_Backup_" & Format(Now, "yyyymmdd_hhmmss") & ".xlsx"

   

    ' إنشاء نسخة احتياطية من الملف

    FileCopy sourcePath, destinationPath

   

    ' عرض رسالة تأكيد إنشاء النسخة الاحتياطية

    MsgBox "تم إنشاء نسخة احتياطية بنجاح."

End Sub

   

الخطوة 4: تخصيص المسارات

قم بتعديل المسارات الموجودة في الشيفرة لتتوافق مع مسار الملف الأصلي الذي ترغب في إنشاء نسخة احتياطية منه، ومسار النسخة الاحتياطية التي ترغب في حفظها.


الخطوة 5: تشغيل الماكرو

احفظ التغييرات وأغلق محرر VBA. انقر فوق "مطور" في شريط الأدوات الرئيسي (إذا لم يكن مرئيًا، فيمكنك تمكينه من خلال خيارات Excel). انقر فوق "ماكرو" وستظهر قائمة الماكرو المتاحة. حدد الماكرو "CreateBackup" وانقر فوق "تشغيل" لتنفيذه.


الخطوة 6: تأكيد إنشاء النسخة الاحتياطية

بعد اكتمال تنفيذ الماكرو، ستظهر رسالة تأكيد توضح أن النسخة الاحتياطية تم إنشاؤها بنجاح.


بهذا، ستكون قد قمت بإنشاء نسخة احتياطية من ملف Excel الأصلي باستخدام VBA. ستتم عملية النسخ في المسار المحدد ويمكنك تعديل الشيفرة لتناسب احتياجاتك الخاصة، مثل إضافة التاريخ والوقت إلى اسم النسخة الاحتياطية للتمييز بينها.


إن إنشاء نسخة احتياطية لملف Excel الهام يعد خطوة ذكية لضمان سلامة البيانات الخاصة بك والتأكد من عدم فقدها. استخدام VBA يوفر لك قوة البرمجة لتنفيذ المهام بسرعة وفعالية في Excel.

الاسمبريد إلكترونيرسالة