How to Save A Backup Copy of A Workbook in Excel 2007 or 2010?
Even if you don’t know VBA code, need not to worry.
Never take a chance while working on your master data. We have best Excel backup plan for your essential data. You can use our Add-In to backup your data time to time by just pressing a short-cut key. Download Add in and use it with any excel file.
- Backup a new copy of your current data with file name and date time of backup
- Will create a folder at first run
- Will not replace any old backup file
- Once Add-In added, a shortcut Crl+Q will work for every excel file in your system
- Will save all sheets in the workbook
- Save the backup at specified location / drive
How to Add Excel Add-In Excel files?
Follow 3 easy steps to add new Add-In:
1. Click the File tab, click Excel Options, and then click the Add-Ins category.
2. In the Manage box at the bottom, click Excel Add-ins, and then click Go. The Add-Ins dialog box appears.
3. Now click on brows and select downloaded Add-In then finally click OK.
You are done now, no need to enable macro every time. A simple shortcut key: Crl + Q and your backup is there at C:\excelbackup\.
Please do not forget to share this page via buttons on left side, if this Add-In helps you.
If you are comfortable with VBA just paste the below code in Excel console window and change the destination path.
Public Const backupfolder As String = “C:\excelbackup\”
If Dir(backupfolder, vbDirectory) = “” Then
‘ This will check if folder already exist
‘ If not then it will create new directory at first time
‘ Save copy of Excel file to backupfolder
Else Call Save
‘ If folder already exist then only save copy of Excel File
Function Save() As String
‘ Auto_save Macro
‘ This will create a copy of file at Seleted destination path
‘ Keyboard Shortcut: Ctrl+r ‘
‘Saves the current file to a backup folder
savedate = Date ‘ Current system date
savetime = Time ‘ Current system time
Dim formattime As String
formattime = Format(savetime, “hh.mm.ss”)
Dim formatdate As String
formatdate = Format(savedate, “DD-MM-YYYY”)
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs Filename:=backupfolder & formatdate & ” ” & formattime & ” ” & ActiveWorkbook.Name
Application.DisplayAlerts = True
MsgBox “Backup Run. Please Check at: ” & backupfolder
This is a tested code and works fine with excel 2010 and 2007. Report any bug by commenting below or thru contact form.