Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellschutz

Zellschutz
05.06.2006 19:38:04
Torge
Hallo,
Hab im Forum schon gesucht aber leider nichts passendes gefunden.
Wer kenn eine Möglichkeit, eine Zelle oder einen bestimmten Bereich in einem Arbeitsblatt (Einzelne Zellen sind entsperrt für eine Eingabe und das Blatt ist geschützt) nachdem dort eine Eingabe erfolgte zu sperren, so dass keine Änderung vorgenommen werden können. Möchte nicht das ganze Blatt sperren, da bereits Blattschutz gesetzt wurde und nur die freigegebenen Zellen für die Eingabe frei sind. Davon sollen dann bestimmte eben nach der Eingabe gesperrt werden.
Kennt jemand eine Möglichkeit oder besser könnte helfen?
Vielen Dank schon an dieser Stelle.
Gruß Torge

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellschutz
05.06.2006 19:44:48
chris
Ich bin mir nicht sicher ob ich dich richtig verstanden habe.
Aber das müsste klappen.
Code einfügen in das Codemodul des aktuellen sheets,
und jetzt wird nachdem eine eingabe gemacht wurde diese zelle geschützt.

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

AW: Zellschutz
06.06.2006 09:11:21
Torge
Hallo Chris b,
vielen Dank, geht das auch für einen bestimmten Bereich, z.B. C57 bis AG70?
Wünsch Dir noch einen schönen Tag.
Gruß Torge
AW: Zellschutz
06.06.2006 11:08:18
chris
Hallo Torge,
das geht so.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C57:AG70")) Is Nothing Then
ActiveSheet.Unprotect
Target.Locked = True
ActiveSheet.Protect
Else
End If
End Sub

Rückmeldung obs klappt wäre nett.
gruß Chris
Anzeige
AW: Zellschutz
06.06.2006 11:30:56
Torge
Hallo Chris,
vielen Dank, werd's gleich mal probieren.
Wünsch Dir noch einen schönen Tag für heute.
Gruß Torge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige