Programmatically turn on Track Changes

[Guest]

I would like to turn on Track Changes at the template level. My goal is to
track changes made to every document spawned from this template. But, when I
try to turn on Track Changes from the template, it wants to save as an XLS
(no longer a template).

What about using VBA? I've already got a routine that checks if this is a
template - if not then run these commands. I'd like to add a line or two that
will turn on Track Changes.

Thank you in advance.

 

[Guest]

How about using the Workbook_Open event to turn on Track Changes. That way
anyone who opens the template will have tracking turned on prior to saving as
..xls.

 

[Guest]

The check for template is in Workbook_Open.

I can't find the code to execute this. 'Course, it just occurred to me that
I could record a macro to turn on track changes and examine that code...

 

[Guest]

No, I can't examine the code that way. For some reason, this is coming up as
unviewable.

 

[Guest]

I think I found an answer - but I'm getting an Application Error 1004 with
the code:

Private Sub Workbook_Open()
With ThisWorkbook
If .FileFormat <> xlTemplate Then
.HighlightChangesOptions When:=xlAllChanges, who:="Everyone"
.ListChangesOnNewSheet = True
.HighlightChangesOnScreen = False
End If
End With
End Sub