接受指定的共享工作簿中的所有更改。
expression.AcceptAllChanges(When, Who, Where)
expression 必需。该表达式返回“应用于”列表中的对象之一。
When Variant 类型，可选。指定何时接受所有的更改。
Who Variant 类型，可选。指定何人接受所有的更改。
Where Variant 类型，可选。指定何处接受所有的更改。
本示例接受活动工作簿中的所有更改。
ActiveWorkbook.AcceptAllChanges