VBA Code


    ActiveWorkbook.KeepChangeHistory = True 
    ActiveWorkbook.SaveAs _
        Filename:= "C:\Personal\Clients\Cust A.xls", _
        AccessMode:= xlShared
    With ActiveWorkbook
        .HighlightChangesOptions When:=xlAllChanges
        .ListChangesOnNewSheet = False
        .HighlightChangesOnScreen = True
    End With

    ActiveWorkbook.Save
    With ActiveWorkbook
        .HighlightChangesOptions When:=xlHighlightChangesTime.xlAllChanges
        .ListChangesOnNewSheet = True
        .HighlightChangesOnScreen = True
    End With
    ActiveWorkbook.Save


ActiveWorkbook.AcceptAllChanges(When,Who,Where) 

When - specifies when all the changes are accepted
Who - Specifies by whom all the changes are accepted ("Everyone")
Where - Specifies where all the changes are accepted






© 2017 Better Solutions Limited. All Rights Reserved. © 2017 Better Solutions Limited

Top

PrevNext