Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
772to776
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
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blattschutz durch eingabe eines Wertes aufheben

Blattschutz durch eingabe eines Wertes aufheben
20.06.2006 12:27:13
Thorsten
Hallo,
kann man den Blattschutz automatisch aufheben lassen, wenn mann z.b. in Zelle "A5" den Wert 95 eingibt?.
Wenn ja, wie ?
Das Sheet ist geschützt, aber ohne Passwort (damit standardmäßig nur bestimmte Zellen ausgewählt werden können.)
Für Eure Bemühungen vorab schon mal besten Dank
Thorsten

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

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz durch eingabe eines Wertes aufheben
20.06.2006 12:44:29
Bertram
Hallo Thomas,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "A5" And Target.Value = 95 Then ActiveSheet.Unprotect
End Sub

Gruß
Bertram
AW: Blattschutz durch eingabe eines Wertes aufhebe
20.06.2006 12:54:02
Thorsten
Danke für Eure schnelle Hilfe.
AW: Blattschutz durch eingabe eines Wertes aufheben
20.06.2006 12:45:58
Hoffi
Hallo Thorsten,
Code kommt in den Codeteil der Tabelle (Rechtsklick auf den Tabellenreiter-Code anzeigen)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A5").Value = "95" Then
ActiveSheet.Unprotect
End If
End Sub

Grüße
Hoffi
P.S. Rückmeldung wäre nett...
Anzeige
AW: Blattschutz durch eingabe eines Wertes aufhebe
20.06.2006 12:53:15
Thorsten
Danke für Eure schnelle Hilfe.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige