Prüfen, ob eine Excel-Mappe schreibgeschützt geöffnet wurde
Schritt-für-Schritt-Anleitung
Um zu prüfen, ob eine Excel-Arbeitsmappe schreibgeschützt geöffnet wurde, kannst du den folgenden VBA-Code verwenden. Dieser verhindert, dass der Benutzer die Datei speichert, wenn sie im schreibgeschützten Modus geöffnet wurde.
- Öffne die Excel-Datei, in der du den Code einfügen möchtest.
- Drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Klicke im Projekt-Explorer auf deine Arbeitsmappe, und wähle "Diese Arbeitsmappe".
- Füge den folgenden Code ein:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ActiveWorkbook.ReadOnly = True Then
MsgBox "Diese Arbeitsmappe wurde schreibgeschützt geöffnet."
Cancel = True
End If
End Sub
- Schließe den VBA-Editor und speichere die Datei.
Mit diesem Code wird eine Abfrage angezeigt, wenn die Datei schreibgeschützt geöffnet wurde, und der Speichervorgang wird abgebrochen.
Häufige Fehler und Lösungen
Alternative Methoden
Eine andere Möglichkeit, um die Excel-Abfrage zu implementieren, ist die Anpassung des Codes für einen Speichern-Button. Hier ist ein Beispiel:
Sub TestSpeichern()
If ThisWorkbook.ReadOnly = True Then
MsgBox "Die Datei ist schreibgeschützt, Sie dürfen diese Datei nicht speichern."
Else
ThisWorkbook.Save
End If
End Sub
Füge diesen Code in ein Modul ein, das du mit einem Button verknüpfen kannst.
Praktische Beispiele
Hier ist ein Beispiel, das zusätzlich eine Abfrage beim Schließen der Arbeitsmappe integriert, um sicherzustellen, dass der Benutzer die Datei nicht speichert, wenn sie schreibgeschützt ist:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Me.ReadOnly = True And Me.Saved = False Then
MsgBox "Die Datei ist schreibgeschützt, Sie dürfen diese Datei nicht speichern."
Cancel = True
End If
End Sub
Dieser Code sorgt dafür, dass der Benutzer nicht in der Lage ist, Änderungen zu speichern, wenn die Arbeitsmappe zuvor im schreibgeschützten Modus geöffnet wurde.
Tipps für Profis
- Überlege, zusätzliche Sicherheitsmaßnahmen zu ergreifen, wie z. B. das Hinzufügen eines Passwortschutzes für die Datei, um zu verhindern, dass die Datei ohne Berechtigungen geöffnet wird.
- Nutze den Code zur Identifikation von schreibgeschützten Dateien, um dem Benutzer klare Hinweise zu geben, was er tun kann, falls er die Datei bearbeiten möchte.
- Füge eine Dokumentation oder Hinweise in die Excel-Datei ein, um den Benutzern zu helfen, die Funktionsweise des Schreibschutzes besser zu verstehen.
FAQ: Häufige Fragen
1. Was bedeutet es, wenn eine Arbeitsmappe schreibgeschützt geöffnet wurde?
Eine schreibgeschützte Arbeitsmappe kann nicht bearbeitet werden, es sei denn, der Benutzer hat das erforderliche Passwort, um die Datei im normalen Modus zu öffnen.
2. Wie kann ich sicherstellen, dass der Benutzer nicht die Option "Speichern unter" verwenden kann?
Verwende den VBA-Code, um den Speichervorgang zu unterbinden, wenn die Datei schreibgeschützt geöffnet wurde. Du kannst auch die Sichtbarkeit von bestimmten Blättern steuern, um den Zugriff zu beschränken.