Please Donate for Our Developers to Keep Macro and Add-Ins Free Forever !
Excel Tutorial Topics
- All Excel Shortcuts
- Writing Excel Function
- Excel SUM Function
- Excel COUNT and COUNTA Functions
- Excel Length of Formula (LEN)
- Excel Trim Function
- Excel Right, Left and Mid Functions
- Excel Vlookup
- Creating Drop Down List in Excel
- Creating A Simple Macro and Add-In
- Assigning Macro to Button in Excel
- Installing an Add-In- 2010 / 2007 / 2013
- Creating VBA Form in Excel for Data Entry
Free Excel Bee Macro & Add-Ins
Save A Backup Copy of Workbook in Excel 2007, 2010 and 2013
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. (Click here to view how to add new Add-In to Excel)
- 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
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\. You will see a dialog box with backup confirmation.
If you are comfortable with VBA, just paste the below code in VBA console window and change the destination path accordingly. Macro 1 creates a new folder in given location, if not exist and will call Excel save function (Macro 2) to make a backup copy of current workbook.
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
Hope it helps.