ChangeHistoryDuration 属性

返回或者设置共享工作簿的修订记录中所要显示修订信息的天数。Long 类型，可读写。

说明

关闭工作簿时，将删除修订记录中的任何比该属性设置的日期旧的修订。

示例

本示例检查修订追踪功能是否有效，如果有效，则对修订记录中显示的天数进行设置。关闭工作簿时，将删除修订记录中的任何比该属性设置的日期旧的修订。

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