Version Control in Excel

I'm working on a large spreadsheet which lets say is work in progress and
therefore I have to resave it each time it is updated under a different name
to distinguish between each saved copy.

Is it possible to set up the Excel file so whenever I go into it it creates
a new saved file with a dated reference, so I have a full audit trail (i.e.
historical log) in date order automatically.
--
David

Użytkownik "David" <[email protected]> napisał w wiadomości
news:[email protected]...
> I'm working on a large spreadsheet which lets say is work in progress and
> therefore I have to resave it each time it is updated under a different
name
> to distinguish between each saved copy.
>
> Is it possible to set up the Excel file so whenever I go into it it
creates
> a new saved file with a dated reference, so I have a full audit trail
(i.e.
> historical log) in date order automatically.
> --
> David

try
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ActiveWorkbook
.Save
filepath = .Path
.SaveAs filepath & "\your name " & Date & ".xls"
.Close
End With
End Sub
mcg

Excuse my ignorance but where do I type what you have written. What is
Private Sub Workbook.

I'm obviously not very proficient in Excel so please walk me through it.

Thanks
--
David


"Gazeta" wrote:

>
> UÂżytkownik "David" <[email protected]> napisaÂł w wiadomoÂści
> news:[email protected]...
> > I'm working on a large spreadsheet which lets say is work in progress and
> > therefore I have to resave it each time it is updated under a different
> name
> > to distinguish between each saved copy.
> >
> > Is it possible to set up the Excel file so whenever I go into it it
> creates
> > a new saved file with a dated reference, so I have a full audit trail
> (i.e.
> > historical log) in date order automatically.
> > --
> > David
>
> try
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> With ActiveWorkbook
> .Save
> filepath = .Path
> .SaveAs filepath & "\your name " & Date & ".xls"
> .Close
> End With
> End Sub
> mcg
>
>
>
>

Użytkownik "David" <[email protected]> napisał w wiadomości
news:[email protected]...
> Excuse my ignorance but where do I type what you have written. What is
> Private Sub Workbook.
>
> I'm obviously not very proficient in Excel so please walk me through it.
>
> Thanks
> --
> David
>
>
> "Gazeta" wrote:
>
> >
> > U?ytkownik "David" <[email protected]> napisa3 w
wiadomo?ci
> > news:[email protected]...
> > > I'm working on a large spreadsheet which lets say is work in progress
and
> > > therefore I have to resave it each time it is updated under a
different
> > name
> > > to distinguish between each saved copy.
> > >
> > > Is it possible to set up the Excel file so whenever I go into it it
> > creates
> > > a new saved file with a dated reference, so I have a full audit trail
> > (i.e.
> > > historical log) in date order automatically.
> > > --
> > > David
> >
> > try
> > Private Sub Workbook_BeforeClose(Cancel As Boolean)
> > With ActiveWorkbook
> > .Save
> > filepath = .Path
> > .SaveAs filepath & "\your name " & Date & ".xls"
> > .Close
> > End With
> > End Sub
> > mcg
> >
> >
> >
> >

right click on sheets tab an choose show code
than find in left window ThisWorkbook an double click it
than to right window paste

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ActiveWorkbook
.Save
filepath = .Path
.SaveAs filepath & "\your name " & Date & ".xls"
.Close
End With
End Sub

than press alt+f11 and save your file
on closing it copy of the file will be saved as well with data stamp
change "your name" to desired one
mcg
if still help needed - write
mcg