auto backup spreadsheet

[rama1712]

I have been asked to look into how when a teacher saves a certain file that it also makes a backup copy in a different location.

Backup name needs to be name of file+dateandtime saved.


spurvis@hilbre.wirral.sch.uk

thanks
stuart

 

[Zack Barresse]

I have been asked to look into how when a teacher saves a certain file that it also makes a backup copy in a different location.

Backup name needs to be name of file+dateandtime saved.


spurvis@hilbre.wirral.sch.uk

thanks
stuart

welcome to the board!!
i think, look something like this
"C:\Documents and Settings\Rob\My Documents\Data\Kinzua\AIR\new_opacity_report.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=True

hope this helps.

 

[nisht]

Goto:

1. Files -> Saveas

2. Then click at Tools (this you will see at upper right corner)

3. Select general options.

4. Here you will find a option for backing up of your excel workbook and can put password also.

 

[husoi]

Hi all, I have come across this "beauty" and it works a treat for me.
Very simple and effective, creates a backup file everytime you use it.
Because I am absolutely useless in VBA (except for small things) and therefore not the author of the code here is where you can find it:

VBA Express : Excel - AutoBackup Workbook (Template)

Hope you enjoy it as much as me.

Hu

I have been asked to look into how when a teacher saves a certain file that it also makes a backup copy in a different location.

Backup name needs to be name of file+dateandtime saved.


spurvis@hilbre.wirral.sch.uk

thanks
stuart

 

[aditi_lic]

I found this Automatic Excel backup tool useful . This backup the files at one space with date and time of backup. Also is not replacing old one.
You can also try this code.

Dim MyDate
MyDate = Date
Dim MyTime
MyTime = Time '
Dim TestStr As String
TestStr = Format(MyTime, "hh.mm.ss")
Dim Test1Str As String
Test1Str = Format(MyDate, "DD-MM-YYYY")


Application.DisplayAlerts = False
'
'Application.Run ("SaveFile")
'
ActiveWorkbook.SaveCopyAs Filename:="E:\Backup\" & Test1Str & " " & TestStr & " " & ActiveWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = True