Arbeitsmappe freigeben

Sub Arbeitsmappefreigeben()
Application.DisplayAlerts = False
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, _
AccessMode:=xlShared
End If
Application.DisplayAlerts = True
End Sub

danach ist diese Einstellung gegeben

Ich möchte aber gern diese Einstellung erhalten.

Hat jemand eine Idee wie da das Makro aussieht
Danke im Voraus!
MFG Andre