أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
محمدعبدالسلام لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة طلب مساعدة اريد في كل 4 من شهر يتم نسح الاسم من عمود الى عمود اكسيل اسئله واجابات


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





تعديل على كود انشاء نسخة احتياطية

السلام عليكم محتاج تعديل على كود انشاء نسخة احتياطية المطلوب عمل نسخة احتياطية في لوكل F داخل فولدر غير مضغوط ويكون اسم ..



06-06-2020 11:46 صباحا
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 

السلام عليكم محتاج تعديل على كود انشاء نسخة احتياطية  المطلوب عمل نسخة احتياطية في لوكل F داخل فولدر غير مضغوط ويكون اسم الفولدر ملف العمل وان بدلآ من backup وان يحتفظ باخر ثلاث نسخ حديث ويمسح النسخ القديمة تلقائيا (الكود الحالي يحذف اي شيئ موجود داخل فولدر اسمه backup) واضافه زر الغاء الامر على النافذه كما هو موضح بالصوره المرفقة مع الملف مع جزيل الشكر والامتنان لجهود الجميع 
 
  صورة المطلوب-picsay.jpg   تحميل jpg صورة المطلوب-picsay.jpg مرات التحميل :(1)
الحجم :(222.172) KB
 
  كود انشاء نسخة احتياطية مضغوطة.xlsm   تحميل xlsm مرات التحميل :(8)
الحجم :(19.901) KB


06-06-2020 06:14 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تعديل على كود انشاء نسخة احتياطية
وعليكم السلام أخي الكريم أبو طيبة
جرب الكود التالي عله يكون المطلوب ويفي بالغرض إن شاء الله
Option Explicit

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim oFSO As FileSystemObject, oFolder As Folder, oFile As File, sFolderPath As String, sFileName As String, strDate As String, ans As Integer, cnt As Integer, mx As Integer, tmp As Integer
    Application.EnableEvents = True
    sFolderPath = "F:\" & Split(ThisWorkbook.Name, ".")(0) & "\"
    ans = MsgBox("Do You Want To Create Backup?", vbQuestion + vbYesNoCancel, "Create Backup")
    If ans = vbYes Then
        ThisWorkbook.Save
        MakeSureDirectoryPathExists (sFolderPath)
        Set oFSO = New FileSystemObject
        Set oFolder = oFSO.GetFolder(sFolderPath)
        For Each oFile In oFolder.Files
            If InStr(oFile.Name, "_") Then
                cnt = Val(Split(Split(oFile.Name, "_")(1), ".")(0))
                If mx < cnt Then mx = cnt
            Else
                oFile.Delete (True)
            End If
        Next oFile
        If mx >= 3 Then
            For Each oFile In oFolder.Files
                If InStr(oFile.Name, "_") Then
                    tmp = Val(Split(Split(oFile.Name, "_")(1), ".")(0))
                    If tmp = 1 Then
                        oFile.Delete (True)
                    Else
                        oFile.Name = Split(oFile.Name, "_")(0) & "_" & tmp - 1 & ".xlsm"
                    End If
                End If
            Next oFile
            mx = 2
        End If
        If cnt = 0 And mx = 0 Then cnt = cnt + 1
        strDate = Format(Now, " dd-mmm-yy h-mm-ss")
        sFileName = sFolderPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & strDate & "_" & mx + 1 & ".xlsm"
        If Dir(sFileName) = "" Then
            ThisWorkbook.SaveCopyAs sFileName
            MsgBox "Backup Created Successfully", vbInformation
        End If
    ElseIf ans = vbNo Then
        MsgBox "Workbook Will Not Be Saved. Workbook Will Be Closed", vbExclamation
        Application.EnableEvents = False
        ThisWorkbook.Close False
    ElseIf ans = vbCancel Then
        MsgBox "Procedure Cancelled", vbExclamation
        Cancel = True: Exit Sub
    End If
End Sub

06-06-2020 06:58 مساء
مشاهدة مشاركة منفردة [2]
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 
look/images/icons/i1.gif تعديل على كود انشاء نسخة احتياطية
مشكور استاذ ياسر بارك الله فيك

06-06-2020 08:35 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تعديل على كود انشاء نسخة احتياطية
بارك الله فيك أخي العزيز أبا الحسن.

06-06-2020 09:13 مساء
مشاهدة مشاركة منفردة [4]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif تعديل على كود انشاء نسخة احتياطية
عاشت ايدك استاذ ياسر العزيز كود رائع 
هل يمكن ان ان يقوم الكود بحفظ اخر ثلاث نسخ احتياطية تم إنشائها ( اي عند حفظ النسخه الرابعة يتم حذف اقدم نسخه تم إنشائها داخل الفولدر وهكذا في كل مره وبهذه الحاله يبقى فقط ثلاث نسخ من الملف المراد عمل نسخة احتياطية له ) مع جزيل الشكر لحظرتك

06-06-2020 09:23 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif تعديل على كود انشاء نسخة احتياطية
بارك الله فيك أخي الكريم
هذا ما يقوم به الكود ، حيث يبقي على ثلاثة نسخ فقط ، ويتم إعادة تسمية النسخ في حالة وجود أكثر من ثلاثة نسخ ..جرب الكود ولاحظ بنفسك

06-06-2020 09:58 مساء
مشاهدة مشاركة منفردة [6]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif تعديل على كود انشاء نسخة احتياطية
سوف اقوم بتجربة الكود غدا على الحاسبه 
شكرا جزيلا 




الكلمات الدلالية
تعديل ، انشاء ، نسخة ، احتياطية ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 05:20 مساء