如果指定工作簿是以共享清单方式打开的,则该值为 True。Boolean 类型,只读。
若要以共享清单模式保存工作簿,请使用 SaveAs 方法。若要将工作簿访问方式从共享模式切换到独占模式,请使用 ExclusiveAccess 方法。
本示例检查活动工作簿是否以独占模式打开。如果是则以共享清单方式保存该工作簿。
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs fileName:=ActiveWorkbook.FullName, _
accessMode:=xlShared
End If