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

Arbeitsmappe schreibgeschützt öffnen (VBA)

Forumthread: Arbeitsmappe schreibgeschützt öffnen (VBA)

Arbeitsmappe schreibgeschützt öffnen (VBA)
04.11.2002 12:18:03
Steffen D
Hallo Leute, was mache ich hier falsch:

vFile = "C:\Mappe.xls"
Workbooks.Open Filename:=vFile, ReadOnly:True

d.h. ich möchte die datei mappe.xls schreibgeschützt öffnen

thx
Steffen D

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Arbeitsmappe schreibgeschützt öffnen (VBA)
04.11.2002 12:29:33
Kl@us-M.
Hi Steffen,
ReadOnly:=True (Gleich-Zeichen fehlt) !!!
Gruss aus dem Hunsrück
Klaus-Martin
Ich habs übersehen, DANKE
04.11.2002 13:18:34
Steffen D
asd
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Arbeitsmappe schreibgeschützt öffnen mit VBA


Schritt-für-Schritt-Anleitung

Um eine Excel-Datei schreibgeschützt zu öffnen, kannst Du den folgenden VBA-Code verwenden:

Sub OpenWorkbookReadOnly()
    Dim vFile As String
    vFile = "C:\Mappe.xls" ' Pfad zur Datei
    Workbooks.Open Filename:=vFile, ReadOnly:=True
End Sub

Achte darauf, dass das Gleichheitszeichen (=) bei ReadOnly nicht fehlt. Dieser Code öffnet die Arbeitsmappe im Lesemodus, sodass Du die Datei nur lesen, aber nicht bearbeiten kannst.


Häufige Fehler und Lösungen

Fehler: Fehlendes Gleichheitszeichen bei ReadOnly.

Lösung: Stelle sicher, dass Du den Code wie folgt schreibst:

Workbooks.Open Filename:=vFile, ReadOnly:=True ' Korrekt

Wenn Du die Fehlermeldung "Diese Arbeitsmappe wurde von einem Server im schreibgeschützten Modus geöffnet" erhältst, könnte es daran liegen, dass die Datei auf einem Netzwerkserver liegt, der schreibgeschützten Zugriff erfordert.


Alternative Methoden

Falls Du keine VBA verwenden möchtest, kannst Du die Excel-Datei auch manuell im Lesemodus öffnen:

  1. Klicke mit der rechten Maustaste auf die Excel-Datei.
  2. Wähle "Eigenschaften".
  3. Aktiviere das Kontrollkästchen "Schreibgeschützt".
  4. Öffne die Datei wie gewohnt in Excel.

Alternativ kannst Du die Datei beim Öffnen durch die Auswahl von "Öffnen" und dann "Öffnen im Lesemodus" auswählen.


Praktische Beispiele

Hier sind einige Beispiele, um verschiedene Szenarien des schreibgeschützten Öffnens zu zeigen:

  1. Öffnen einer Datei mit Leserechten:
Sub OpenWorkbookExample1()
    Workbooks.Open Filename:="C:\Beispiel.xls", ReadOnly:=True
End Sub
  1. Öffnen einer schreibgeschützten Datei und zur Bearbeitung anregen:
Sub OpenWorkbookExample2()
    Dim vFile As String
    vFile = "C:\BeispielMitSchreibschutz.xls"
    Workbooks.Open Filename:=vFile, ReadOnly:=True
    MsgBox "Die Datei ist schreibgeschützt. Möchtest Du eine Kopie erstellen?"
End Sub

Tipps für Profis

  • Verwende den Access-Befehl in VBA, um sicherzustellen, dass Du auch auf Datenquellen zugreifen kannst, die in einem schreibgeschützten Modus geöffnet sind.
  • Speichere immer eine Kopie Deiner Excel-Datei, bevor Du sie im schreibgeschützten Modus öffnest, um Datenverlust zu vermeiden.
  • Du kannst auch den Workbook_Open-Ereignis verwenden, um festzustellen, ob eine Datei schreibgeschützt geöffnet wurde, und entsprechende Maßnahmen zu ergreifen.

FAQ: Häufige Fragen

1. Wie öffne ich eine Excel-Datei immer schreibgeschützt? Du kannst die Datei im Windows Explorer mit der rechten Maustaste anklicken, "Eigenschaften" auswählen und das Kontrollkästchen für "Schreibgeschützt" aktivieren.

2. Was bedeutet "Excel öffnet schreibgeschützt"? Das bedeutet, dass die Datei in einem Modus geöffnet wird, der keine Änderungen zulässt. Dies kann nützlich sein, wenn Du sicherstellen möchtest, dass die Originaldaten nicht verändert werden.

3. Kann ich eine schreibgeschützte Datei bearbeiten? Ja, Du kannst die Datei kopieren und die Kopie bearbeiten, solange die Originaldatei schreibgeschützt bleibt.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige