PurgeChangeHistoryNow 方法

       

从修订日志中删除指定工作簿的条目。

expression.PurgeChangeHistoryNow(Days, SharingPassword)

expression  该表达式返回 Workbook 对象。

Days   Long 类型,必需。指定要在修订日志中保留几天内所做的更改。

SharingPassword   Variant 类型,可选。工作簿的共享口令。如果工作簿有共享口令,而又省略了本参数,将提示用户输入口令。

示例

本示例从当前活动工作簿的修订日志中删除一天以前所做的所有修订记录。

ActiveWorkbook.PurgeChangeHistoryNow Days:=1