True if change tracking is enabled for the shared workbook. Read/write Boolean.
Example
This example sets the number of days shown in the change history for the active workbook if change tracking is enabled.
With ActiveWorkbook
If .KeepChangeHistory Then
.ChangeHistoryDuration = 7
End If
End With