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

[omar shideed]

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

[أحمد فؤاد]

السلام عليكم ورحمة الله وبركاته 

أخي تفضل الكود

Private Sub CommandButton1_Click()
Dim Msg As String
Dim ans As Integer
Dim ans2 As Integer
Msg = "هل ترغب بعمل نسخة احتياطية؟"
ans = MsgBox(Msg, vbYesNo, "الرجاء الإنتباه")
If ans = vbYes Then
copy1
ans2 = MsgBox(" تم عمل نسخة إحتياطية ", vbInformation, "الرجاء الإنتباه")
Else
Exit Sub
End If
End Sub

Sub copy1()
Dim Extension$
Dim savePathName As String
Extension = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "Backup" & (Format(Now, " dd-mm-yyyy,hh.mm.ss AMPM")) & ".xlsb"
savePathName = "c:\Test Backup 1\"
    On Error Resume Next
    Application.DisplayAlerts = False
    GetAttr (savePathName)
    Select Case Err.Number
    Case Is = 0
        Application.DisplayAlerts = False
        ThisWorkbook.SaveCopyAs savePathName & Extension
        Application.DisplayAlerts = True
    Case Else
        MkDir savePathName
        ThisWorkbook.SaveCopyAs savePathName & Extension
    End Select
    On Error GoTo 0
End Sub

[أحمد فؤاد]

أخي الحبيب

تفضل أيضا ملف من روائع أستاذنا الكبير / عبد الله باقشير

بارك الله فيه وجعل أعماله في ميزان حسناته

فورم لحفظ نسخة من الملف.rar

[يوسف السيد]

اخى الفاضل احمد فؤاد ... جهد وافر

مشكور .. بارك الله فيك

[omar shideed]

يا استاذنا جزاك الله كل خير وشكرا لاهتمامك بالموضوع 

[ahmed saif]

مشكوررررررررررر

[ابا اسماعيل]

مشكور .. بارك الله فيك

[محمد الريفى]

بعد اذن اخواتى الكرام

الاصدارات الجديده من الاوفيس قدمت لنا طرق بسيطه جدا ودقيقه جدا

راجع هذا الرابط فيه ماتريد ان شاء الله

http://www.officena.net/ib/index.php?showtopic=57348&hl=

تقبلوا منى تحياتى

[ابا اسماعيل]

يا استاذنا 

محمد الريفى

جزاك الله كل خير وشكرا

تم تعديل ديسمبر 14, 2014 بواسطه ابا اسماعيل

[yazan qatash]

السلام عليكم

 

طبعا فورم جميل جدا والله يعطيكو العافية

بس استفسار بيسط انا بدي يفتح الفورم عند اغلاق الملف الاكسل

وعدم ضهوور قائمة الحفظ  تعات الاكسل

الرجاء المساعدة

ولكم جزيل الشكر والتقدير

[yazan qatash]

13 hours ago, مستر ابو مرمر said:

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

هل يوجد كود ينظم هذه العملية

 

[lathe1]

سؤال عند الذهاب للمسار المحدد والضغط على الملف لا يفتح

وكيف اقوم بفتح الملف الاصلى من خلال النسخ الاحنياطى

Test Backup 

[m1808269]

بارك الله فيه وجعل أعماله في ميزان حسناته

[ثروت خميس]

جزاك الله خيرا

 

اريد تقيم هذا الملف

3 minutes ago, ثروت خميس said:

جزاك الله خيرا

 

 

تجربة10006.xlsm