Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Arbeitsmappe freigeben (VB-Code)

Forumthread: Arbeitsmappe freigeben (VB-Code)

Arbeitsmappe freigeben (VB-Code)
09.05.2009 07:23:10
Nicole
Hallo,
ich suche den VB-Code um folgende Option zu setzen bzw. den Haken wieder zu entfernen.
Menü:
Überprüfen/Arbeitsmappe freigeben/Bearbeiten von mehreren Benuztern zu selben Zeit zulassen.
Finde keinen Code hierzu bzw. der Makrorecorder zeichnet hier nichts auf.
Alternativ könnte man auch "Änderungen nachverfolgen",Änderungen hervorheben, Änderungen während der Eingabe protokollieren setzen.
danke
lg
nicole
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsmappe freigeben (VB-Code)
09.05.2009 08:20:19
Tino
Hallo,
versuche es mal hiermit.
'Arbeitsmappe freigeben
ActiveWorkbook.SaveAs AccessMode:=xlShared
'Freigabe aufheben
ActiveWorkbook.ExclusiveAccess
Gruß Tino
etwas ausführlicher
09.05.2009 11:08:43
Tino
Hallo,
hier mal noch ein klein wenig ausführlicher.
Sub Freigabe()
With ThisWorkbook
     If Not .MultiUserEditing Then 'ist Datei nicht freigegeben? 
         Application.DisplayAlerts = False 'Excelmeldung aus 
            
            .SaveAs AccessMode:=xlShared
    '        .AutoUpdateFrequency = 5 'Änderungen alle 5 Minuten aktualisieren 
            .AutoUpdateSaveChanges = True 'Änderungen beim speichern aktualisieren 
         
         Application.DisplayAlerts = True 'Excelmeldung an 
     End If
End With
End Sub


Sub FreigabeAufhebe()
If ThisWorkbook.MultiUserEditing Then 'ist Datei freigegeben? 
 ThisWorkbook.ExclusiveAccess
End If
End Sub


Gruß Tino

Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Arbeitsmappe freigeben mit VB-Code in Excel


Schritt-für-Schritt-Anleitung

Um eine Excel-Arbeitsmappe freizugeben, kannst du den folgenden VB-Code verwenden. Dieser Code ermöglicht es mehreren Benutzern, gleichzeitig auf die Arbeitsmappe zuzugreifen.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Wähle Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Kopiere und füge den folgenden Code in das Modul ein:

    Sub Freigabe()
       With ThisWorkbook
           If Not .MultiUserEditing Then 'ist Datei nicht freigegeben? 
               Application.DisplayAlerts = False 'Excelmeldung aus 
               .SaveAs AccessMode:=xlShared
               Application.DisplayAlerts = True 'Excelmeldung an 
           End If
       End With
    End Sub
  4. Um die Freigabe aufzuheben, füge diesen Code hinzu:

    Sub FreigabeAufhebe()
       If ThisWorkbook.MultiUserEditing Then 'ist Datei freigegeben? 
           ThisWorkbook.ExclusiveAccess
       End If
    End Sub
  5. Schließe den VBA-Editor und führe das Makro aus, um die Arbeitsmappe freizugeben oder die Freigabe aufzuheben.


Häufige Fehler und Lösungen

  • Fehler: "Die Datei kann nicht freigegeben werden."

    • Lösung: Stelle sicher, dass die Arbeitsmappe nicht bereits von einem anderen Benutzer bearbeitet wird.
  • Fehler: "Makro kann nicht ausgeführt werden."

    • Lösung: Überprüfe die Makrosicherheitseinstellungen in Excel. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen und aktiviere die Makros.

Alternative Methoden

Neben dem VB-Code kannst du die Freigabe auch manuell über die Excel-Oberfläche aktivieren:

  1. Gehe zu dem Tab Überprüfen.
  2. Klicke auf Arbeitsmappe freigeben.
  3. Aktiviere die Option „Bearbeiten von mehreren Benutzern zur selben Zeit zulassen“.
  4. Speichere die Arbeitsmappe.

Diese Methode ist für Benutzer, die mit VBA nicht vertraut sind, einfacher.


Praktische Beispiele

  • Beispiel 1: Freigabe einer Arbeitsmappe zur Zusammenarbeit in einem Team.
  • Beispiel 2: Verwendung der Funktion „Änderungen nachverfolgen“ ohne Freigabe, um Änderungen in einer nicht freigegebenen Arbeitsmappe zu dokumentieren.

Diese Beispiele zeigen, wie wichtig die richtige Handhabung der Freigabeoptionen ist, um eine effektive Zusammenarbeit zu gewährleisten.


Tipps für Profis

  • Verwende Application.DisplayAlerts = False, um Excel-Warnmeldungen während der Ausführung des Makros zu unterdrücken. Dies macht die Ausführung reibungsloser.
  • Denke daran, dass das Freigeben einer Arbeitsmappe die Leistung beeinträchtigen kann, wenn viele Benutzer gleichzeitig darauf zugreifen.
  • Teste deine Makros in einer Testdatei, bevor du sie in einer produktiven Umgebung anwendest.

FAQ: Häufige Fragen

1. Wie kann ich eine Excel-Datei freigeben? Um eine Excel-Datei freizugeben, kannst du entweder die oben beschriebene VBA-Methode verwenden oder die Freigabeoption in der Excel-Oberfläche aktivieren.

2. Was passiert, wenn ich die Freigabe aufhebe? Wenn du die Freigabe aufhebst, kann nur noch ein Benutzer die Arbeitsmappe bearbeiten. Alle anderen Benutzer erhalten nur Lesezugriff.

3. Wie kann ich die Freigabe einer Excel-Datei aufheben? Verwende den VB-Code, um die Freigabe aufzuheben, oder gehe zu Überprüfen > Arbeitsmappe freigeben und deaktiviere die Freigabeoption.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige