Bestimmte Zellen in Excel per VBA schreibgeschützt machen
Schritt-für-Schritt-Anleitung
Um bestimmte Zellen in Excel schreibgeschützt zu machen, kannst Du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
- Öffne die Excel-Datei, die Du schützen 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 VBA-Code ein:
Sub Schreibschutz_auf_XZeilen()
Dim Passwort As Variant
Passwort = InputBox("Bitte Passwort eingeben:", "Passwort")
On Error GoTo FalschesPW
ActiveSheet.Unprotect Passwort
GoTo RichtigesPW
FalschesPW:
MsgBox "Falsches Passwort"
Exit Sub
RichtigesPW:
Cells.Locked = True ' Alle Zellen sperren
Cells.FormulaHidden = True
Range("A1").Select
Do While ActiveCell.Row < ActiveSheet.UsedRange.Rows.Count ' Solange es Zeilen gibt
If ActiveCell.Value <> "X6" And ActiveCell.Value <> "X5" And ActiveCell.Value <> "X4" And ActiveCell.Value <> "X3" Then
Selection.EntireRow.Locked = False ' Entsperren der Zeile
Selection.EntireRow.FormulaHidden = False
End If
ActiveCell.Offset(1, 0).Activate ' Nächste Zeile auswählen
Loop
ActiveSheet.Protect Passwort ' Arbeitsblatt wieder schützen
End Sub
- Schließe den VBA-Editor und führe das Makro aus, indem Du auf
Entwicklertools und dann auf Makros klickst.
Häufige Fehler und Lösungen
- Falsches Passwort: Wenn Du ein falsches Passwort eingibst, zeigt die MsgBox eine Fehlermeldung an. Überprüfe das eingegebene Passwort und versuche es erneut.
- Zellen werden nicht entsperrt: Stelle sicher, dass die Zellen, die Du entsperren möchtest, tatsächlich die Kriterien erfüllen (keine
X-Werte in Spalte A).
Alternative Methoden
Falls Du kein VBA nutzen möchtest, kannst Du auch die integrierten Schutzfunktionen von Excel verwenden:
- Wähle die Zellen aus, die Du schreibgeschützt machen möchtest.
- Rechtsklick und wähle
Zellen formatieren.
- Gehe zum Tab
Schutz und aktiviere Gesperrt.
- Schütze das Arbeitsblatt über
Überprüfen > Blatt schützen.
Diese Methode bietet weniger Flexibilität, aber sie ist einfach zu handhaben.
Praktische Beispiele
Hier ist ein Beispiel für die Anwendung des VBA-Codes:
- Du hast eine Excel-Tabelle mit verschiedenen Daten in Spalte A. Wenn in einer der Zellen in Spalte A
X6, X5, X4 oder X3 steht, wird die gesamte Zeile schreibgeschützt. Alle anderen Zeilen sind bearbeitbar.
Tipps für Profis
- Experimentiere mit verschiedenen Bedingungen im VBA-Code, um gezielt Zellen oder Zeilen zu schützen.
- Nutze die Möglichkeit, die Passworteingabe flexibel zu gestalten, indem Du eine InputBox verwendest, wie im Beispiel gezeigt.
- Wenn Du regelmäßig mit schreibgeschützten Excel-Tabellen arbeitest, speichere Deine Makros in der
Personal.xlsb-Datei, um sie in jeder Arbeitsmappe verfügbar zu haben.
FAQ: Häufige Fragen
1. Wie kann ich den Schreibschutz aufheben?
Um den Schreibschutz aufzuheben, führe das Makro erneut aus und gib das korrekte Passwort ein.
2. Gibt es eine Möglichkeit, bestimmte Zellen immer schreibgeschützt zu machen?
Ja, Du kannst die Zellen beim Erstellen der Tabelle so formatieren, dass sie immer gesperrt sind, und den Schutz dann aktivieren, wann immer es nötig ist.
3. Funktioniert dieser VBA-Code in allen Excel-Versionen?
Ja, der Code sollte in den meisten modernen Excel-Versionen funktionieren, einschließlich Excel 2013, 2016 und 2019.