آموزشی دستور ایجاد backup

[ali.b]

سلام و خسته نباشید
دوستان عزیز خیلی ها نیاز دارن که هر بار برای فایل اکسلشون تغییراتی میدن ی نسخه پشتبان گرفته بشه تا در صورت مشکل بتونن اخرین تغییرات رو پیدا کنن و یا فایل های قبلی رو هم داشته باشن
با این کد هر بار که تغییری در فایل اکسل میدین خودکار در مسیر مورد نظر ذخیره میکنه

Private Sub Workbook_Deactivate()

End Sub


Private Sub Workbook_Open()
      Application.Caption = "Microsoft Excel AutoBackup"
End Sub


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
      Dim MyFilePath$, Extension$
      MyFilePath = MyPCpath("[COLOR=#b22222]MyDocuments[/COLOR]")
      Extension = Left(ThisWorkbook.Name, Len _
                                          (ThisWorkbook.Name) - 4) & " Backup"


      On Error Resume Next      '<< folder exists
      MkDir MyFilePath & Extension      '<< create folder
      'save current version of this book in the folder
      ActiveWorkbook.SaveCopyAs Filename:=MyFilePath & _
                                          Extension & "\" & Extension & _
                                          (Format(Now, " mmm d yyyy, hh.mm.ss AMPM")) & ".xls"
End Sub


Public Function MyPCpath$(Folder)
      MyPCpath = CreateObject("WScript.Shell").SpecialFolders _
                 (Folder) & Application.PathSeparator
End Function

برای اجرای ایکد باید اونو تو thisworkbook ذخیره کنین

[pejmank]

سلام
دوست عزیز ممنون از اطلاعات خوبتون.
فقط یک سوال: برای تغییر آدرس ذخیره به آدرس دلخواه، دقیقا به چه صورت باید آدرس رو بنویسیم؟ مثلا توی درایو D اگر بخواهیم بک آپ ها رو ذخیره بکنه، چه آدرسی رو باید کجا قرار بدیم؟
من وقتی مثلا بجای Mydocuments میزنم

D:\

هیچ اتفاقی نمیفته.
و تنها زمانیکه آدرس روی خود Mydocuments هست، اونجا ذخیره رو انجام میده.

با تشکر

[ali.b]

شما باید این قسمت

 MyPCpath("MyDocuments") 

رو حذف کنید و این کد رو جاش بنویسید

 MyFilePath = "D:\" 

کد اولی برای درایوی که ویندوز نصب شده و پوشه های سیستمی استفاده میشه و کاررد های دیگه ای هم داره اما برای درایورهای دیگه باید از روش بالا عمل کنید

[yamahdi13601982]

با سلام و خسته نباشید
ببخشید من میخوام توی همین پوشه ی بک آپ یه پوشه ی دیگه با نام ورک بوک درست بشه و بک آپ توی اون ذخیره بشه-یعنی پوشه تو پوشه
لطفا راهنمایی بفرمائید

[Keyhan1011]

با سلام و با اجازه از اساتید ارجمند
میتونیم از این دستور هم برای ساخت backup تو مسیری که فایل قرار داره استفاده کنیم یه فایل جدید با(نام فایل،تاریخ،ساعت) رو ذخیره میکنه

Sub backup ()
'Stap 1: create a backup of a vorkbook with 
current date in the same folder
Thisworkbook.saveCopyAz_
Filename:=thisworkbook.path & "" & _
Thisworkbook.name & " " & _
Format(now, "yyyy-mm-dd, hh.mm") & ".xlsm"
End sub