ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Automatic backup in excel with copy to hard drive and to cd-rw (https://www.excelbanter.com/excel-discussion-misc-queries/19398-automatic-backup-excel-copy-hard-drive-cd-rw.html)

Tammies PITA

Automatic backup in excel with copy to hard drive and to cd-rw
 
How do I get Excel to either automatically backup to hard drive and cd-rw, or
even when I hit save icon, go ahead and save to hard drive and cd-rw. I
already have auto save setup but backup file goes to same hard drive folder
as origianl copy. Kind of defeats the purpose of a system crash and wanting
a copy on removable media. Thanks for your help!

Anne Troy

This Word macro auto-saves a copy to a floppy drive. You should be able to
edit it to save to the hard drive and CDRW, too. You'll also change some
stuff to make it an Excel macro:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=203

*******************
~Anne Troy

www.piersontech.com
www.mrexcel.com


"Tammies PITA" <Tammies wrote in message
...
How do I get Excel to either automatically backup to hard drive and cd-rw,

or
even when I hit save icon, go ahead and save to hard drive and cd-rw. I
already have auto save setup but backup file goes to same hard drive

folder
as origianl copy. Kind of defeats the purpose of a system crash and

wanting
a copy on removable media. Thanks for your help!




Otto Moehrbach

Here is an Excel macro that copies the saved file to another folder in the
hardrive. You can easily modify this macro to have it also copy the saved
file to the CDRW. HTH Otto
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
'Change the following path to your own
Const szBackupPath As String = "C:\Documents and Settings\Otto
Moehrbach\My Documents\ExcelData\Backup"
'If they're not using the Save As command...
If Not SaveAsUI Then
'Cancel Excel 's Save
Cancel = True
'Save this workbook before backing it up
Application.EnableEvents = False
ThisWorkbook.Save
Application.EnableEvents = True
'Save a backup copy to the szBackupPath location
ThisWorkbook.SaveCopyAs szBackupPath & ThisWorkbook.Name
End If
End Sub

"Tammies PITA" <Tammies wrote in message
...
How do I get Excel to either automatically backup to hard drive and cd-rw,
or
even when I hit save icon, go ahead and save to hard drive and cd-rw. I
already have auto save setup but backup file goes to same hard drive
folder
as origianl copy. Kind of defeats the purpose of a system crash and
wanting
a copy on removable media. Thanks for your help!





All times are GMT +1. The time now is 10:55 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com