Dialog Schreibgeschützt öffnen in Excel per VBA
Schritt-für-Schritt-Anleitung
Um ein Excel-Dokument schreibgeschützt zu öffnen, ohne dass der Dialog erscheint, kannst Du die .Open Methode in VBA mit bestimmten Parametern verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
-
Öffne den Visual Basic for Applications (VBA) Editor in Excel (ALT + F11).
-
Füge ein neues Modul hinzu (Rechtsklick auf "VBAProject" > Einfügen > Modul).
-
Schreibe den folgenden Code:
Sub OpenWorkbookNotReadOnly()
Dim wb As Workbook
Set wb = Workbooks.Open("C:\Pfad\zu\deinem\workbook.xls", _
UpdateLinks:=3, _
ReadOnly:=False, _
IgnoreReadOnlyRecommended:=True)
End Sub
-
Ändere den Dateipfad zu dem Speicherort Deines Excel-Dokuments.
-
Führe das Makro aus (F5), um die Datei zu öffnen.
Durch die Verwendung von IgnoreReadOnlyRecommended:=True wird der Dialog, der fragt, ob Du die Datei schreibgeschützt öffnen möchtest, umgangen.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn Du eine Excel-Datei schreibgeschützt öffnen möchtest, kannst Du auch die folgenden Methoden in Betracht ziehen:
- Öffnen über den Windows Explorer: Halte die
Shift-Taste gedrückt, während Du die Datei öffnest. Dies kann manchmal den Dialog umgehen.
- Datei über ein Excel-Makro erstellen: Du kannst ein Makro schreiben, das die Datei automatisch öffnet und alle notwendigen Parameter setzt.
Praktische Beispiele
Hier sind einige praktische Beispiele, wie Du Dateien in verschiedenen Szenarien schreibgeschützt öffnen kannst:
-
Einzelne Datei öffnen:
Sub OpenSingleWorkbook()
Workbooks.Open "C:\Pfad\zu\deinem\workbook.xls", _
UpdateLinks:=3, _
ReadOnly:=False, _
IgnoreReadOnlyRecommended:=True
End Sub
-
Mehrere Dateien in einer Schleife öffnen:
Sub OpenMultipleWorkbooks()
Dim fileNames As Variant
Dim i As Integer
fileNames = Array("C:\Pfad\zu\deinem\workbook1.xls", _
"C:\Pfad\zu\deinem\workbook2.xls")
For i = LBound(fileNames) To UBound(fileNames)
Workbooks.Open fileNames(i), _
UpdateLinks:=3, _
ReadOnly:=False, _
IgnoreReadOnlyRecommended:=True
Next i
End Sub
Tipps für Profis
-
Verwende On Error Resume Next: Um Fehler während des Öffnens zu ignorieren, kannst Du diesen Befehl verwenden. Beispiel:
On Error Resume Next
-
Probiere es mit Application.DisplayAlerts = False: Dies kann helfen, um unerwünschte Dialoge zu unterdrücken.
FAQ: Häufige Fragen
1. Kann ich diese Methode auch für Word-Dokumente verwenden?
Ja, ähnlich wie in Excel kannst Du in Word den Dialog umgehen, indem Du die entsprechenden Parameter in VBA nutzt.
2. Was passiert, wenn die Datei von einem anderen Benutzer bearbeitet wird?
Wenn die Datei von einem anderen Benutzer geöffnet ist, kannst Du sie nur schreibgeschützt öffnen. Die Methode funktioniert nur, wenn die Datei nicht bereits bearbeitet wird.