Workbook.ChangeHistoryDuration (Excel)

Cette propriété renvoie ou définit le nombre de jours affichés dans l'historique des modifications du classeur partagé. Long (en lecture/écriture).

Toute modification, dans l'historique des modifications, ultérieure à la définition de cette propriété est supprimée à la fermeture du classeur.

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