gibt es die Möglichkeit die Freigabe eine freigegebenen Arbeitsmappe per Makro/VBA-Code wieder zu entfernen? Bisher habe nich nur was gefunden um den Freigabeschutz zu entfernen (uprotectsharing).
Viele Grüße,
Max
Sub Freigabe_aufheben_ohneKennw()
Application.DisplayAlerts = False
ActiveWorkbook.ExclusiveAccess
Application.DisplayAlerts = True
End Sub
Sub Freigabe_aufheben_ohneKennw()
Dim userst, i%
userst = ActiveWorkbook.UserStatus
For i = 1 To UBound(userst, 1)
If userst(i, 3) = 1 Then
Exit Sub
End If
Next
Application.DisplayAlerts = False
ActiveWorkbook.ExclusiveAccess
Application.DisplayAlerts = True
End Sub