Clone your XL document

[Pinaceous]

Hi All,

Is there a way to clone your document, where if the user is working with your file and they accidently delete it that it can be restored in using its clone?

Thank you,

Pinaceous

 

[shg]

You mean like make a copy?

Sect the file in Explorer, Ctrl+C, Ctrl+V

 

[Pinaceous]

Hi,

What I am trying to get at is there a way for the XL document to be in two places at once?

 

[shg]

No file can be two places at once.

 

[Pinaceous]

Thank you for answering my question.

I guess this sounds like quantum theory for the cpu?

 

[BrianJN1]

Could you set a macro to autosave the file (to a "Safe" directory) every time that the file is opened and overwriting any existing instance of the file - it would have to be saved under a modified of course?

 

[BrianJN1]

Further to the above, check this snippet of code:

Dim year As String
year = InputBox("Enter New Year as a 4 digit number")
Sheets("TitlePage").Unprotect
Range("TitlePage!F50").Value = year
ThisWorkbook.SaveCopyAs "C:\Dir\Fname" & year & ".xlsm"
‘ Workbooks.Open Filename:="C:\Dir\Fname" & year & ".xlsm"

I needed to create a copy of my current work but using the next year in its title. I only needed to use that last row to have an open file to see that other stuff in my macro had worked.

I’ve just run that macro twice and found that I haven’t had to implement any error checks, I suppose because of the “SaveCopyAs” in that second last line.

 

[BrianJN1]

I've just played a bit further. Add this macro to ThisWorkBook in the VBA Module listing:

Private Sub Workbook_Open()
ThisWorkbook.SaveCopyAs "C:\Destination\ModifiedName.xlsm"

End Sub

Every time to open your original program then "ModifiedName" will either be created or overwritten.
If some one deleted your original you only need to rename "ModifiedName" and drag it back to its home folder.

 

[shg]

You could just put the file on a network share where the users don't have write permission.

 

[Scott T]

Windows has a previous versions function that you may be able to use. The previous versions come from restore points or Windows Backup.
Right click on the file in explorer and select properties
Select the Previous Versions tab any previous version will be listed here.

You could also protect the workbook so that user can not make changes without a password.