指定当前用户对共享清单中的工作簿进行独占访问。
expression.ExclusiveAccess
expression 必需。该表达式返回一个 Workbook 对象。
ExclusiveAccess 方法保存对指定工作簿的任何更改,并要求其他打开该工作簿的用户将所作改变保存到另外的文件。
如果指定工作簿不是以共享清单形式打开,则本方法无效。要确定工作簿是否以共享清单方式打开,可对其 MultiUserEditing 属性进行检查。
本示例检查活动工作簿是否以共享清单方式打开,如果是,则本示例设置当前用户以独占方式访问工作簿。
If ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.ExclusiveAccess
End If