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

[أسامة عطاالله]

السلام عليكم

هذا الكود من عمل ا/ احمد حمور-ابوعبدالله

اريد تعديل بة اضافة جزئية اخرى للكود وهى انة يعمل نسخة احتياطية دون الضغط على اى ازرار فقط عند الضغط على علامة اكس فى البرنامج يعمل نسخة احتياطى ويحفظ فى نفس الوقت وتاريخ الحفظ ولا تظهر رسائل

( حفظ وعمل نسخة احتياطى وكتابة التاريخ )

Private Sub CommandButton1_Click()
Dim msg As String
Dim ans As Integer
Dim ahmad As String, hamoor As String
msg = "åá ÊÑÛÈ ÈÚãá äÓÎÉ ÇÍÊíÇØíÉ¿"
ans = MsgBox(msg, vbYesNo)
If ans = vbYes Then
ahmad = "c:\ahmad 1\" & ThisWorkbook.Name
ThisWorkbook.SaveCopyAs ahmad
hamoor = "d:\ahmad 2\" & ThisWorkbook.Name
ThisWorkbook.SaveCopyAs hamoor
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.Quit
Else
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.Quit
End If
End Sub

لكم جزيل الشكر

 

 

 

نسخه احتياطيه.rar

[أسامة عطاالله]

للرفع

[إبراهيم ابوليله]

اخى

جرب وضع الكود بالشكل الاتى فى

حدث الورك بوك

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim msg As String
Dim ans As Integer
Dim ahmad As String, hamoor As String
ahmad = "c:\ahmad 1\" & ThisWorkbook.Name
ThisWorkbook.SaveCopyAs ahmad
hamoor = "d:\ahmad 2\" & ThisWorkbook.Name
ThisWorkbook.SaveCopyAs hamoor
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.Quit

End Sub

[أسامة عطاالله]

مجهود رائع اخى العزيز / إبراهيم ابوليله

جعلة الله فى ميزان حسناتك

طمعان فى كرم حضرتك

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

اسف للاطالة

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
Shell "cmd.exe /C copy " & """" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & """" & " " & """" & "D:\" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-AMPM-") & ThisWorkbook.Name & """", 0
End Sub

شكرا لجهودكم المبذولة اخوتى واساتذتى الكرام

[إبراهيم ابوليله]

اخى اسامه

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

الكود يقوم بعمل نسخه بتاريخ اليوم

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

فلن تجد غير نسخه واحه لهذا اليوم

كل مره يتم غلق الملف فيها يتم حزف النسخه الموجوده بتاريخ اليوم وتسجيل نسخه جديده

وهكذا بالنسبه لليوم الذى يليه

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim BOOKNAME As String
BOOKNAME = ThisWorkbook.Name & "--" & Format(Date, "DD-MM-YYYY")
ThisWorkbook.SaveAs ("C:\Users\hima\Desktop\" & BOOKNAME & ".XLSB")
End With

End Sub

واذا اردت الاحتفاظ بنسخه واحده فقط دون

الحاجه الى التاريخ

قم بتغير السطر التالى

BOOKNAME = ThisWorkbook.Name & "--" & Format(Date, "DD-MM-YYYY")

الى

BOOKNAME = ThisWorkbook.Name

[أسامة عطاالله]

شكرا اخى

ولكن عند التجربة تعطى الصورة الاتية

o2.rar

[أسامة عطاالله]

اخى واستاذى الفاضل / إبراهيم ابوليله

لسانى عاجز عن شكر حضرتك لتعبك معى

اقل شيئ يقال شكرا لمجهودك

لقد توصلت للكود من مجموعة الاكواد التى قدمتها لى ضربتهم فى الخلاط وطلع الكود الى ارغب بة

وها هو الكود

 

تقبل تحياتى

o1.rar

تم تعديل أبريل 26, 2014 بواسطه أسامة عطاالله

[محمد الورفلي1]

استاذ اسامه ممكن علي اوفيس  2003

[أسامة عطاالله]

تفضل اخى

ومرفق صورة للكود وفية اسم الفلدر ومكان الدريف

d الدريف المراد التخزين فية

osama اسم الفلدر

اعمل فلدر فى الدريف الذى تراة وغير الاسم فى الكود والمكان على حسب ما تراة

o11.rar

[محمد الورفلي1]

مشكور جداً

[إبراهيم ابوليله]

اخى اسامه

فى امان الله