حفظ نسخة احتياطية

[Ebadelhady]

الاخوة الأساتذة
مرفق ملف من عمل الأستاذ عادل حنفى وهو كان بصيغة xls
وقد قمت بحفظه بصيغة xlsm
المطلوب فضلا تعديل الكود ليتم الحفظ بنفس الصيغة وبنفس الطريقة مضغوط وبالتاريخ

backup .rar

[Ebadelhady]

ياريت أحد أساتذة اكسيل الأفاضل يساعدنى فى هذا الأمر

كود يقوم بحفظ نسخة مضغوطة من الملف بصيغة xlsm

[Ebadelhady]

الاخوة الأعزاء جزاكم الله خيرا.. لقد وجدت هذا الكود ويقوم بما كنت أريد وحبيت أن يستفيد به من يريد

الكود التالى يحفظ نسخة من ملف الاكسيل فى فولدر  تجربة backups

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.EnableEvents = False

    thisPath = ThisWorkbook.Path
    myName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".") - 1))
    ext = Right(ThisWorkbook.Name, Len(ThisWorkbook.Name) - InStrRev(ThisWorkbook.Name, "."))
    backupdirectory = myName & " backups"

    Set FSO = CreateObject("Scripting.FileSystemObject")

    If Not FSO.FolderExists(ThisWorkbook.Path & "/" & backupdirectory) Then
        FSO.CreateFolder (ThisWorkbook.Path & "/" & backupdirectory)
    End If

    T = Format(Now, "mmm dd yyyy hh mm ss")
    ThisWorkbook.SaveCopyAs thisPath & "\" & backupdirectory & "\" & myName & " " & T & "." & ext

    Application.EnableEvents = True
End Sub

تجربة.rar

[طلعت محمد حسن]

السلام عليكم

اخي الكريم جرب هذه الطريقة لعلها تحقق المطلوب بالنسبة لديك حيث عند اغلاق الملف يظهر عندك فورم بسيط تكتب بداخلة اسم النسخة الاحتياطية ويقوم بشكل تلقائي بانشاء مجلد في C اسمة أرشيف يتم حفظ النسخة الاحتياطية بداخلة بنفس الامتداد الذي تريدة وكذالك نفس الاسم او التاريخ الذي تكتبة للاسم النسخة الاحتياطية وبعدها تستطيع ضغط الملف بشكل طبيعي

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

اقبل تحياتي واحترامي

backup .rar

[Ebadelhady]

أخى الفاضل طلعت

السلام عليكم... جربته وتحقق المطلوب الله يسعدك ويبارك لك

[طلعت محمد حسن]

اشكرك اخي الكريم على كلماتك الطيبة والحمد لله الذي تتم الصالحات على يداه.