Workbook.ChangeHistoryDuration (Excel)

Devuelve o establece el número de días que se muestran en el historial de cambios del libro compartido. Long de lectura y escritura.

Al cerrar el libro se eliminarán todos los cambios del historial anteriores al valor establecido para la propiedad.

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