Skip to main content

Auto Backup Excel Workbook after a Specified interval

Hi one and all,
This time I have come up with a code that will Save a Copy of your current Excel file on a Specified Location (with Data & Time as Prefix) after an Specified Interval. You can always change the Folder Path and Interval Time. 
Remarks:-
As it involves macros, so make sure that you save the file in .xlsm ( Macro Enabled Format ) and also to enable macros after while Excel Workbook.

So here are the steps:-
1. Open the Workbook. Press Alt + F11 to open Visual Basic Window.
2. On the Left Side of the Screen, there would be a Thisworkbook Module. Double Click it.
3. Now Copy and Paste the code below there:-

       

Private Sub Workbook_Open()
Call Ontime
End Sub



4. Now Insert Module from the Insert Menu in the Menu Bar.
5. Copy and Paste the following codes there:-


       
Dim Hours, Minutes, Seconds
Sub Backup()
Fname = Format(Now, "mm-dd-yyyy_hh-mm") & "_" & ThisWorkbook.Name
FPath = ThisWorkbook.Path & "\" 'You can change the Folder Path Here..
ThisWorkbook.SaveCopyAs FPath & Fname
Call Ontime
End Sub

Sub Ontime()
Hours = 0 'Put Hours here
Minutes = 1 'Put Minutes here
Seconds = 0 'Put Seconds here
Application.Ontime Now + TimeSerial(Hours, Minutes, Seconds), "Backup"
End Sub


6. Close the Visual Basic Window and Save the file as Macro Enabled in .xlsm format. ( in .xls for 2003 version)
7. That's it. You can open that file and continue with your work.
8. Backup would be taken automatically after the specified intervals.

Remarks:-
You can always change the interval time by changing the values of Bold variables (Current delay is 1 Minute ). Make sure FPath must end with a "\" sign.

Check the attached Example File:-
AutoBackup.xlsm

Regards,

Labels:

Comments

  1. Anonymous16 April 2018 at 03:21

    You can safely backup your Excel workbooks on open or on demand automatically using Dose for Excel Add-In:

    https://www.zbrainsoft.com/Backup-Settings.html

    ReplyDelete
  2. selim29 July 2023 at 10:42

    kırşehir
    gümüşhane
    yozgat
    kırıkkale
    kocaeli
    8P4

    ReplyDelete

Post a Comment

Popular posts from this blog

Automation:- Sending Invitation to Meeting Using Excel VBA

Hello Everyone, In one of the previous post, I wrote about automating Sending Emails using Excel VBA. This time I have come up with a pretty similar code. The code below sends Outlook Meeting Invitations to recipients on one click. here is the Code:- Sub Send_Invite_Auto() Dim olApp As Outlook.Application Dim olApt As AppointmentItem Set olApp = New Outlook.Application 'Creating Outlook Session Set olApt = olApp.CreateItem(olAppointmentItem) 'Creating an Appointment With olApt .Subject = "Enter the subject here." 'Subject .Start = DateAdd("d", 5, Now) 'Enter Date + Time here. .Recipients.Add ("example@gmail.com") 'Recipient Name, Alias, or any other Attribute. .MeetingStatus = olMeeting 'olAppointmentItem with Meeting status olMeeting 'becom...
10 comments
Read more

Making Password Protected PDFs using Excel Vba and PDFtk Tool

Hi Everyone, This time, I have come up a VBA Code to generate Password protected PDFs using Excel. Actually, Excel Vba has .ExportAsFixedFormat Method to generate PDFs but this hasn't any Parameter which takes password to protect the PDFs. So I have used PDFtk Tool which provide Command Line Interface to make PDFs protected using Password. Actually, You can do various things using PDFtk Tool command line varying from creating, merging, Protecting and many other. So Download the PDFtk Tool from the following link:- Download PDFtk Tookit Here are the Steps:- 1. Install the PDFtk Toolkit. 2. Use the following code to Print or Export the Activesheet with a password.
8 comments
Read more

Highlighting Duplicates across multiple sheets

Hi One and All, This time I have come up with some conditional formatting stuff. The aim is to highlight the duplicates across multiple sheets and with in the sheet as well. Assumptions:- 1. I am assuming that sheet names goes on like sheet1, sheet2, sheet3.... 2. The Target Column No. is same in all the sheets. I mean, as in the attached example, its Column A which is being targeted in both sheets.
2 comments
Read more