want to record date for each time I update a file

P

PattyR

I want to keep track of dates that a file is updated.
The Summary only shows the last time a file was modified but I want to keep
track of each time it is modified.
Is there a way to do this?
Thanks
Patty
 
G

Gary''s Student

First insert a special worksheet named "record". Then install the following
event macro in the workbook code area:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim w1 As Worksheet
Dim w2 As Worksheet
Set w1 = ActiveSheet
Set w2 = Sheets("record")
w2.Activate
If Cells(1, 1).Value = "" Then
i = 1
Else
i = Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
Cells(i, 1).Value = Now
w1.Activate
End Sub


Each time the file is saved the date/time will be recorded in the new tab.

Because it is workbook code, it is very easy to install and use:

1. right-click the tiny Excel icon just to the left of File on the Menu Bar
2. select View Code - this brings up a VBE window
3. paste the stuff in and close the VBE window

If you save the workbook, the macro will be saved with it.

To remove the macro:

1. bring up the VBE windows as above
2. clear the code out
3. close the VBE window

To learn more about macros in general, see:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

To learn more about Event Macros (workbook code), see:

http://www.mvps.org/dmcritchie/excel/event.htm
 
G

Gary''s Student

First insert a special worksheet named "record". Then install the following
event macro in the workbook code area:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim w1 As Worksheet
Dim w2 As Worksheet
Set w1 = ActiveSheet
Set w2 = Sheets("record")
w2.Activate
If Cells(1, 1).Value = "" Then
i = 1
Else
i = Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
Cells(i, 1).Value = Now
w1.Activate
End Sub


Each time the file is saved the date/time will be recorded in the new tab.

Because it is workbook code, it is very easy to install and use:

1. right-click the tiny Excel icon just to the left of File on the Menu Bar
2. select View Code - this brings up a VBE window
3. paste the stuff in and close the VBE window

If you save the workbook, the macro will be saved with it.

To remove the macro:

1. bring up the VBE windows as above
2. clear the code out
3. close the VBE window

To learn more about macros in general, see:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

To learn more about Event Macros (workbook code), see:

http://www.mvps.org/dmcritchie/excel/event.htm
 
P

PattyR

Hi
I forgot to mention that I am using Excel in MS Office Enterprise 2007.
I tried the code below but it didn't work.
Thanks
Patty
 
P

PattyR

Hi
I forgot to mention that I am using Excel in MS Office Enterprise 2007.
I tried the code below but it didn't work.
Thanks
Patty
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top