Schreibschutz

Bild

Betrifft: Schreibschutz von: Daniel
Geschrieben am: 04.02.2005 12:52:24

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

Bild


Betrifft: AW: Schreibschutz von: Sven
Geschrieben am: 04.02.2005 12:53:57

Und wenn sich die Person mal verschrieben hat und was ändern möchte/muss?

Sven


Bild


Betrifft: AW: Schreibschutz von: Daniel
Geschrieben am: 04.02.2005 13:16:08

Hallo Sven

Ich weiss, aber dennoch möchte ich herausfinden wie das funktionieren könnte.

Danke


Bild


Betrifft: AW: Schreibschutz von: Sven
Geschrieben am: 04.02.2005 13:19:28

Zellschutz im Change-Ereignis der Zelle setzen.

Sven


Bild


Betrifft: AW: Schreibschutz von: Matthias G
Geschrieben am: 04.02.2005 13:21:30

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


Bild


Betrifft: AW: Nur einmalige Eingabe von: Thom@sCH
Geschrieben am: 04.02.2005 13:19:45


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


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Farben"