Brun, não fiz os testes, mas conforme o link abaixo :

A rotina só irá funcionar se a pasta ja estiver compartilhada, de uma olhada e faça os testes.

Excel VBA macro to track changes in separate sheet
http://stackoverflow.com/questions/7211 ... rate-sheet

Sub Teste()

    Application.DisplayAlerts = False

    With ActiveWorkbook
        .SaveAs , , , , , , xlShared
        .KeepChangeHistory = True
        .HighlightChangesOptions When:=xlAllChanges
        .ListChangesOnNewSheet = True
        .HighlightChangesOnScreen = False
        .Worksheets("History").Select
    End With

End Sub

[]s

Valeu, Mauro Coutinho!
Funcionou perfeitamente, cara