Tracking changes issues

B

Bura Tino

Hi,

I not so much want to "Track Changes" as I (only) want to know when the
every cell in the spreadsheet was last modified.

Is there a simpler way to accomplish it than "Track Changes"?
Is whether "Track Changes" is on or off a property of the workbook or the
applicaiton? In other words, if I track changes and email the workbook will
the recipient continue to be in "Track Changes" mode?
Finally, is the last modified date for each cell available through VBA?

Very very many thanks in advance!

Bura
 
B

Bill Renaud

I believe that this code will have to be contained in a separate workbook,
as code in the data workbook is not viewable by anyone while changes are
being tracked. Macros cannot be edited or single-stepped through either.

Public Sub ListChanges()
Dim wb As Workbook

Set wb = ActiveWorkbook

With wb
'.KeepChangeHistory does NOT work! Is always TRUE, once set!
If .MultiUserEditing _
Then
.HighlightChangesOptions _
When:=xlAllChanges, _
Who:="Everyone"
.ListChangesOnNewSheet = True
Else
MsgBox "Change tracking is not enabled.", _
vbInformation + vbOKOnly, "List Changes"
End If
End With
End Sub

After the changes have been listed to a new worksheet named "History", then
fetch them using a macro. Some commands (and probably some VBA methods) are
not available while a workbook is being shared.
 
Top