Workbook.MultiUserEditing (Excel)

True, wenn die Arbeitsmappe für gemeinsamen Zugriff freigegeben ist.

Um eine Arbeitsmappe im Freigabemodus zu speichern, verwenden Sie die SaveAs-Methode.

Dim booMultiUserEditing As Boolean
booMultiUserEditing = ActiveWorkbook.MultiUserEditing