ChangeHistoryDuration (属性)

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

说明

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

示例

python

#本示例用于设置追踪天数：当共享工作簿修订记录功能处于打开状态时，为活动工作簿的修订记录功能设置跟踪天数。关闭工作簿时，将删除修订记录中任何比该属性设置日期早的修订
def test():
    if ActiveWorkbook.MultiUserEditing and ActiveWorkbook.KeepChangeHistory:
        ActiveWorkbook.ChangeHistoryDuration = 7

python

#本示例演示将活动工作簿另存为共享工作簿，当工作簿修订记录功能处于打开状态时，为活动工作簿的修订记录功能设置跟踪天数为五天
def test():
    ActiveWorkbook.SaveAs(ActiveWorkbook.FullName, None, None, None, None, None, xlShared)
    if ActiveWorkbook.KeepChangeHistory:
        ActiveWorkbook.ChangeHistoryDuration = 5