Im folgenden Beispiel wird festgestellt, ob die aktive Arbeitsmappe für gemeinsamen Zugriff freigegeben ist. Ist dies der Fall, erhält der/die aktuelle Benutzer/in exklusiven Zugriff.
If ActiveWorkbook.MultiUserEditing Then ActiveWorkbook.ExclusiveAccess End If