Workbook.ChangeHistoryDuration (Excel)

Retorna ou define o número de dias mostrado no histórico de alterações da pasta de trabalho compartilhada. Long de leitura/gravação.

Quaisquer alterações no histórico de alterações que sejam mais antigas que a definição dessa propriedade serão removidas quando a pasta de trabalho for fechada.

With ActiveWorkbook 
 If .KeepChangeHistory Then 
 .ChangeHistoryDuration = 7 
 End If 
End With