Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
560to564
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
560to564
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige