Workbook.MultiUserEditing (Excel)

True if the workbook is open as a shared list.

To save a workbook as a shared list, use the SaveAs method. To switch the workbook from shared mode to exclusive mode, use the ExclusiveAccess method.

Dim booMultiUserEditing As Boolean
booMultiUserEditing = ActiveWorkbook.MultiUserEditing