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

Zellschutz

Forumthread: Zellschutz

Zellschutz
27.02.2008 11:15:00
serge
Hallo Leute
In einer Passwortgeschützer Datei ("bodo") habe ich eine frei Zelle "Jahr" die ich nach dem ändern der Eingabe in dieser Zelle schützen möchte und die Ganze Datei wieder mit Passwortgeschut ("bodo") schützen möchte.
ich habe es mit folgendem versucht, aber es klappt nicht: Die Datei wird nicht mehr geschützt!

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.address = "Jahr" Then
ActiveSheet.Unprotect Password:="bodo"
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="bodo", DrawingObjects:=True, Contents:=True, Scenarios:=True
end if
End Sub


Wer hilft mir weiter
Danke
Serge

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellschutz
27.02.2008 11:43:18
Matthias
Hallo Serge

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("Jahr")) Is Nothing Then
ActiveSheet.Unprotect Password:="bodo"
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="bodo", DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub


Gruß Matthias

Anzeige
AW: Zellschutz zu schnell
27.02.2008 15:26:00
serge
Hallo Matthias
dein Vorschlag lässt mir keine Zeit den wert in Zelle "jahr" zu ändern, es schützt Zelle und Datei beim anklicken!
Serge

Mein Fehler
27.02.2008 18:41:21
serge
Sorry Matthias
ich hatte es als Worksheet_SelectionChange eingebaut!
Dein Vorschlag klappt.
Vielen Dank
Serge
;

Beliebteste Forumthreads (12 Monate)

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