الاخوة الكرام السلام عليكم
 
	 اريدتحديث هذا الكود كان موجود فى موضوع سابق حاولت تغيير المسار لكن لم يعمل معى
 
 Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
Shell "cmd.exe /C copy " & """" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & """" & " " & """" & "c:\" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-AMPM-") & ThisWorkbook.Name & """", 0
End Sub
	F:\Backup Excel Sheetsلكى يحفظ فى هذا المسار
 
	وعند الحفظ الجديد للملف يستبدل الملف الاحتياطى السابق هل ممكن هذا 
 
	ولكم جزيل الشكر والتقدير 
 
	فواتير مشتريات2020 - Copy.xlsm