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

[tiger2016]

الاخوة الكرام السلام عليكم

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

 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

[عبدالفتاح في بي اكسيل]

جرب هذا  الكود  لعله المطلوب 

Sub Auto_Save()

Application.DisplayAlerts = False

Dim backupfolder As String
backupfolder = "f:\Backup Excel Sheets \"
ActiveWorkbook.SaveCopyAs Filename:=backupfolder & ActiveWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = True
MsgBox "Backup Run. Please Check at: " & backupfolder & " !"

End Sub

 

[أحمد يوسف]

tiger2016

أين الضغط على الإعجاب لهذا الكود الممتاز ؟!!💙