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

gesperrte Zellen auswählen

Forumthread: gesperrte Zellen auswählen

gesperrte Zellen auswählen
30.10.2003 10:24:53
wally
Hallo,

Ich möchte ein Arbeitsblatt mittels VBA schützen. Allerdings habe ich keine Möglichkeit gefunden, wie ich gesperrte Zellen vor der Auswahl schützen kann. Wenn ich das Arbeitsblatt manuell über die Menüfunktion in Excel schütze, besteht die Möglichkeit die Option "Gesperrte Zellen auswählen" zu deaktivieren.
Genau das möchte ich auch über VBA erreichen.

Hat jemand eine Idee?
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: gesperrte Zellen auswählen
30.10.2003 10:35:19
Hajo_Zi
Hallo wally

geschützte Zellen nicht auswählen

Private Sub Worksheet_Activate()
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

von Nepumuk

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.MoveAfterReturnDirection = xlDown
End Sub


Private Sub Workbook_Open()
Dim Wb As Workbook, Sh As Worksheet
For Each Wb In Workbooks
For Each Sh In Wb.Worksheets
Sh.EnableSelection = xlUnlockedCells
Next Sh
Next Wb
Application.MoveAfterReturnDirection = xlToRight
End Sub

von Rolf, Lgh.


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.


Anzeige
AW: gesperrte Zellen auswählen
30.10.2003 10:56:55
wally
hat geklappt! Danke!
;
Anzeige

Infobox / Tutorial

Gesperrte Zellen in Excel auswählen und schützen


Schritt-für-Schritt-Anleitung

Um gesperrte Zellen in Excel vor der Auswahl zu schützen, kannst Du ein einfaches VBA-Skript verwenden. Befolge diese Schritte:

  1. Öffne Dein Excel-Arbeitsblatt.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Wähle im Projekt-Explorer das Arbeitsblatt aus, das Du schützen möchtest.

  4. Füge den folgenden Code in das Code-Fenster ein:

    Private Sub Worksheet_Activate()
       ActiveSheet.EnableSelection = xlUnlockedCells
    End Sub
  5. Schließe den VBA-Editor und speichere Deine Änderungen.

  6. Schütze das Arbeitsblatt über Überprüfen > Blatt schützen, um sicherzustellen, dass gesperrte Zellen nicht ausgewählt werden können.


Häufige Fehler und Lösungen

  • Fehler: Gesperrte Zellen können trotzdem ausgewählt werden.

    • Lösung: Stelle sicher, dass Du das Arbeitsblatt nach dem Hinzufügen des VBA-Codes auch tatsächlich schützt. Ohne den Schutz wird der VBA-Code nicht wirksam.
  • Fehler: VBA-Code wird nicht ausgeführt.

    • Lösung: Überprüfe, ob Makros in Deinen Excel-Einstellungen aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Trust Center-Einstellungen > Makroeinstellungen und aktiviere die benötigten Optionen.

Alternative Methoden

Wenn Du nicht mit VBA arbeiten möchtest, gibt es auch eine manuelle Methode:

  1. Markiere die Zellen, die Du sperren möchtest.
  2. Klicke mit der rechten Maustaste und wähle Zellen formatieren.
  3. Gehe zum Tab Schutz und aktiviere die Option Gesperrt.
  4. Schütze das Arbeitsblatt über die Menüleiste (Überprüfen > Blatt schützen), aber deaktiviere die Auswahl für gesperrte Zellen.

Diese Methode ist jedoch weniger flexibel, wenn Du viele Arbeitsblätter verwaltest.


Praktische Beispiele

Ein praktisches Beispiel zur Verwendung des VBA-Codes:

Angenommen, Du hast ein Arbeitsblatt mit einer Eingabemaske, wo Nutzer nur bestimmte Zellen ausfüllen dürfen. Mit dem obigen VBA-Ansatz kannst Du sicherstellen, dass alle anderen Zellen nicht einmal ausgewählt werden können.

Hier ist ein Beispiel für einen erweiterten VBA-Code, der beim Öffnen der Arbeitsmappe alle gesperrten Zellen deaktiviert:

Private Sub Workbook_Open()
    Dim Wb As Workbook, Sh As Worksheet
    For Each Wb In Workbooks
        For Each Sh In Wb.Worksheets
            Sh.EnableSelection = xlUnlockedCells
        Next Sh
    Next Wb
End Sub

Füge diesen Code in das ThisWorkbook-Modul ein.


Tipps für Profis

  • Nutze die EnableSelection-Eigenschaft, um gezielt festzulegen, welche Zellen für die Nutzer auswählbar sind.
  • Experimentiere mit verschiedenen Bedingungen in Deinem VBA-Code, um spezifische Anforderungen zu erfüllen.
  • Halte Deine VBA-Makros gut dokumentiert, damit Du sie später leichter anpassen kannst.

FAQ: Häufige Fragen

1. Kann ich mehrere Arbeitsblätter gleichzeitig schützen?
Ja, Du kannst eine Schleife im VBA verwenden, um alle Arbeitsblätter in einer Arbeitsmappe zu durchlaufen und dort die EnableSelection-Eigenschaft anzuwenden.

2. Was passiert, wenn ich den VBA-Code ändere?
Änderungen am VBA-Code können die Funktionalität beeinflussen. Teste immer Deine Änderungen in einer Kopie Deiner Datei, bevor Du sie in der Originaldatei anwendest.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige