MultiUserEditing Property Example

This example determines whether the active workbook is open in exclusive mode. If it is, the example saves the workbook as a shared list.

If Not ActiveWorkbook.MultiUserEditing Then
    ActiveWorkbook.SaveAs fileName:=ActiveWorkbook.FullName, _
        accessMode:=xlShared
End If