Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.10.2025 18:10:41
vba pdf
24.10.2025 17:27:23
Mit Makro eine pdf erstellen mit Namen aus einer Zelle
24.10.2025 15:11:16
Differenz errechnen zum Vortag aus anderem Tabellenblatt
24.10.2025 11:47:33
Shape auf 1 cm und in Zelle zentriert. Code kürzen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
560to564
560to564
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schreibschutz

Forumthread: Schreibschutz

Schreibschutz
04.02.2005 12:52:24
Daniel
Hallo Excel-Freunde...
Gibt es eine Möglichkeit im Excel nach einer Eingabe in einem Feld diese durch einen Schreibschutz direkt mit Passwort zu schützen. Ziel sollte es sein, dass die Person die Daten eingibt diese nicht mehr ändern kann.
Es kann auch nach dem abspeichern der Datei erfolgen.
Danke 1000 mal
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schreibschutz
Sven
Und wenn sich die Person mal verschrieben hat und was ändern möchte/muss?
Sven
AW: Schreibschutz
04.02.2005 13:16:08
Daniel
Hallo Sven
Ich weiss, aber dennoch möchte ich herausfinden wie das funktionieren könnte.
Danke
AW: Schreibschutz
Sven
Zellschutz im Change-Ereignis der Zelle setzen.
Sven
Anzeige
AW: Schreibschutz
04.02.2005 13:21:30
Matthias
Hallo Daniel,
Voraussetzung ist natürlich, dass die Zellen erst einmal entsperrt wurden:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Range
For Each z In Target
If z.Value <> "" Then
ActiveSheet.Unprotect Password:="123"
z.Locked = True
ActiveSheet.Protect Password:="123"
End If
Next z
End Sub
(Ins Arbeitsblattmodul)
Gruß Matthias
Anzeige
AW: Nur einmalige Eingabe
04.02.2005 13:19:45
Thom@sCH
Hallo Du..?
Lösung:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> "" Then
ActiveSheet.Unprotect
Target.Locked = True
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True
End If
End Sub

Gruss
Thomas
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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