Clever-Excel-Forum

Hallo an alle,

eine recht simple aufgabe, aber ich scheitere daran den richtigen Befehl zu finden. (Bin kein Scripting Profi - probiere nur bis es klappt)

Ich moechte in meinem Script am ende einer abfolge in der die Mappe bearbeitet wird, das er das Workbook shared.

Dazu habe ich diese beiden Befehle versucht:

1. Um das alte Freigabemodell zu verwenden:

Sub UseLegacySharedWorkbook()
  ActiveWorkbook.LegacyShared = True
End Sub

2. Um das neue Freigabemodell zu verwenden:

Sub ShareWorkbook()
  ActiveWorkbook.Sharing = True
End Sub

Ich will aber das alte Freigabemodell verwenden, einfach aus dem Grund, dass, das neue Modell nicht funktioniert   .. also auch manuell nicht.

Als Fehler bekomme ich bei beiden "438" - Object doesn´t support this property method.
Manuell kann ich das WB aber sharen.

Vielleich hat ja jemand sowas bereits gemacht?

Danke

Ich habe eine Loesung gefunden: (Man sollte auch mal die englisch sprachigen foren durchsuchen...)

Unsharen:
If ActiveWorkbook.MultiUserEditing Then
wb.ExclusiveAccess
End If

Sharen:
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs fileName:=ActiveWorkbook.FullName, _
accessMode:=xlShared
WorkBook.Close
End If


Fuer die Forensuche:

Excel - Teilen - Sharen - VBA - Unsharen