Programmatically turn on Track Changes

  • Thread starter Thread starter Guest
  • Start date Start date
G

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.
 
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.
 
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...
 
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
 
Back
Top