Workbook.MultiUserEditing (Excel)

True se a pasta de trabalho estiver aberta como uma lista compartilhada. Boolean somente leitura.

Para salvar uma pasta de trabalho como uma lista compartilhada, use o método SaveAs. Para alternar a pasta de trabalho do modo compartilhado para o modo exclusivo, use o método ExclusiveAccess.

Dim booMultiUserEditing As Boolean
booMultiUserEditing = ActiveWorkbook.MultiUserEditing