ExcelBanter - Tracking changes issues

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.
--
Regards,
Bill

"Bura Tino" wrote in message
...
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