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

[ريتاج المدينة]

السلام عليكم

كل التحية والاحترام لأعضاء المنتدى الكرام

أريد معرفة كيفية إنشاء نسخة من ملف إكسيل تستحدث تلقائياً  مع أي تعديل في النسخة الأصلية؟

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

وهل يمكن ان تكون النسخة الاحتياطية نسخة واحدة؟؟؟؟؟؟؟

ام  كل تعديل سيتم استحداث نسخة احتياطية وبالتالي تتعدد النسخ!!!!!!!

هل ممكن؟؟؟

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

[Ali Mohamed Ali]

وعليكم السلام يمكنك عمل هذا حتى بدون اكواد 

عليك بمشاهدة هذا الفيديو

https://www.youtube.com/watch?time_continue=1&v=1xHS1snXRKs

[نبيل عبد الهادي]

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

2-عن طريق الاكواد

الكود الاول لعمل نسخه واحده باسم الملف في المجلد المفترض من البارتش المفترض (يمكن تغيره)

Sub backup()
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs Filename:="D:\backup\" & _
ActiveWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = True
Call MsgBox("  تم الحفظ بنجاح  ", mBox, "شكرا لكم")
End Sub

الكود الثاني لعمل نسخه باسم الملف عند الحفظ كل مره في الساعه والدقيقه والثانية في المجلد الفترض من البارتشن المفترض (يمكن تغيره)

Sub myBackup()
    Dim strDate As String, strTime As String
    strDate = Format(Date, "DD-MM-YYYY")
    strTime = Format(Time, "hh.mm.ss")
    Application.DisplayAlerts = False
        With ActiveWorkbook
            .SaveCopyAs Filename:="D:\backup\" & strDate & "_" & strTime & "_" & .Name
        End With
    Application.DisplayAlerts = True
   Call MsgBox("  تم الحفظ بنجاح  ", mBox, "شكرا لكم")
End Sub

 

تم تعديل نوفمبر 2, 2018 بواسطه نبيل عبد الهادي

[ريتاج المدينة]

بارك الله فيك استاذ نبيل عبدالهادي

وجزاك الله عنا كل خير