Gibt es bitte mittels VBA eine Möglichkeit, eine Arbeitsmappenfreigabe für den Zeitraum der Durchführung eines Makros aufzuheben und danach wieder zu setzen?
Danke
Josef
Sub FreigabeAusschalten()
Application.DisplayAlerts = False
With ActiveWorkbook
.ExclusiveAccess
.KeepChangeHistory = False
End With
Application.DisplayAlerts = True
End Sub
Sub FreigabeEinschalten()
Application.DisplayAlerts = False
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, accessMode:=xlShared
End If
Application.DisplayAlerts = True
End Sub
Um die Freigabe einer Excel-Datei aufzuheben, kannst du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
Öffne die Excel-Datei, deren Freigabe du aufheben möchtest.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
Füge den folgenden Code ein, um die Freigabe aufzuheben:
Sub FreigabeAusschalten()
Application.DisplayAlerts = False
With ActiveWorkbook
.ExclusiveAccess
.KeepChangeHistory = False
End With
Application.DisplayAlerts = True
End Sub
Um die Freigabe wieder zu aktivieren, füge den folgenden Code hinzu:
Sub FreigabeEinschalten()
Application.DisplayAlerts = False
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, accessMode:=xlShared
End If
Application.DisplayAlerts = True
End Sub
Schließe den VBA-Editor und führe das Makro aus, um die Freigabe zu beenden.
Fehler: Die Methode Unprotect für das Object Workbook ist fehlgeschlagen.
On Error Resume Next Befehl verwenden, um diesen Fehler zu ignorieren.Freigabe kann nicht geändert werden.
Wenn du die Freigabe nicht über VBA aufheben möchtest, kannst du dies auch manuell tun:
Extras in der Menüleiste.Arbeitsmappe freigeben.OK, um die Freigabe zu beenden.Hier sind ein paar Beispiele, wie du die Freigabe in unterschiedlichen Szenarien aufheben kannst:
Application.DisplayAlerts = False, um unnötige Bestätigungsdialoge während der Ausführung des Makros zu vermeiden.1. Wie kann ich die Excel-Datei freigeben aufheben?
Du kannst die Freigabe aufheben, indem du das oben beschriebene VBA-Makro ausführst oder die Freigabe manuell über das Menü „Extras“ beendest.
2. Was passiert mit den Änderungen, wenn ich die Freigabe aufhebe?
Alle Änderungen, die von anderen Benutzern vorgenommen wurden, werden in der Datei gespeichert. Du kannst die Datei danach exklusiv bearbeiten.
3. Kann ich die Freigabe rückgängig machen, wenn ich mich vertue?
Ja, du kannst die Freigabe jederzeit wieder aktivieren, solange du die Datei im richtigen Format speicherst (z.B. im Shared Mode).