Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Automatischer Zellenschutz nach Eintrag

Forumthread: Automatischer Zellenschutz nach Eintrag

Automatischer Zellenschutz nach Eintrag
30.04.2007 14:08:55
kleinergrisu
Hallo!!
Ich habe eine Tabelle mit 6 Spalten. Ich möchte gerne das wenn man in der Spalte 5 einen Wert eingibt, dieser automatisch geschützt wird, sodass man ihn nicht mehr versehentlich ändern kann.
Kann mir da jemand weiterhelfen?
Mit freundlichen Grüßen
Andre

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatischer Zellenschutz nach Eintrag
30.04.2007 15:03:11
Oberschlumpf
Hi Andre
Zuerst musst du die ganze Spalte 5 markieren
Dann über Format/Zellen/Schutz den Haken entfernen
Schreib nun ins Klassenmodul des Tabellenblatt dieses:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
ActiveSheet.Unprotect
Target.Locked = True
ActiveSheet.Protect
End If
End Sub


Allerdings kannst du dann natürlich in Spalte 5 in jede Zelle nur ein einziges Mal etwas schreiben.
Das Klassenmodul erreichst du so:
1. Öffne mit Alt-F11 den VBA-Editor
2. Wenn nicht sichtbar, lass über Ansicht/Projektexplorer selbigen anzeigen
3. Klick mit linke Maustaste im Projektexplorer doppelt auf das Tabellenblatt, in dem der Code wirksam werden soll
4. Im normalerweise rechten, aber auf jeden Fall größten Fensterbereich fügst du obigen VBA-Code ein
Konnte ich helfen?
Ciao
Thorsten

Anzeige
AW: Automatischer Zellenschutz nach Eintrag
30.04.2007 22:16:57
kleinergrisu
Funktioniert leider nicht bei mir.
Ich habe keine Ahnung warum nicht. Habe alles so gemacht wie beschrieben.
Gruß Andre

AW: Automatischer Zellenschutz nach Eintrag
02.05.2007 23:33:36
kleinergrisu
Hallo Oberschlumpf!!
Leider Sperrt er das ganze Tabellenblatt und nicht nur die Zelle der Spalte E in der betroffenen Zeile.
Gibt es da noch eine Lösung?
Gruß Andre

Anzeige
AW: Automatischer Zellenschutz nach Eintrag
30.04.2007 15:08:26
Daniel
Hallo
ja, da geht.
1. für alle Zellen, die verändert werden dürfen (auch einmalig) unter Format - Zellen - Schutz das Häkchen bei "Gesperrt" entfernen
2. dieses Makro in das Modul der betroffenen Arbeitmappe einfügen

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column  5 Then Exit Sub
ActiveSheet.Unprotect Password:=""
Target.Locked = True
ActiveSheet.Protect Password:=""
End Sub


Falls noch ein Password verwendet werden Soll, mußt du es in der ersten und Letzten Programmzeile zwischen die Anführungszeichen schreiben.
Gruß, Daniel

Anzeige
AW: Automatischer Zellenschutz nach Eintrag
30.04.2007 22:17:17
kleinergrisu
Funktioniert leider nicht bei mir.
Ich habe keine Ahnung warum nicht. Habe alles so gemacht wie beschrieben.
Gruß Andre

AW: Automatischer Zellenschutz nach Eintrag
30.04.2007 23:00:29
Daniel
Hallo
dann lad doch mal die Datei hoch, sonst kann man da nicht viel sagen.
ist deine 5. Tabellenspalte auch wirklich Spalte E?
Gruß, Daniel

Anzeige
AW: Automatischer Zellenschutz nach Eintrag
02.05.2007 22:11:16
kleinergrisu
Hallo Daniel!!
Konnte mich leider nicht ehe melden.
Es funktioniert zwar die Sperrung, aber er sperrt mir das Ganze Tabellenblatt. Es sollte nur die Spalte E gesperrt werden.
Gruß Andre
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum