Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
340to344
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zellen schützen

zellen schützen
26.11.2003 02:37:38
Maik
ich hab noch ein problemchen, würd mich freuen wenn mir jemand helfen kann.
also ich habe ein tabellenblatt, welches ich als ganzes schützen möchte, in diesem tabellenblatt möchte ich aber einzelne zellen freigeben.
allerdings sollen das immer andere zellen sein.
welche zellen das jeweils sind werden durch einen vorherigen vergleich
von einem festen und zuvor eingegebenem wert festgesetzt.
danke schonmal.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zellen schützen
26.11.2003 08:53:40
Michael Brueggemann
Hallo Maik,

wenn Du dieses Makro in der gewuenschten Tabelle hinterlegst, werden abhaengig vom Wert in Zelle "A1" die Spalten "B" oder "C" freigegeben.


Private Sub Worksheet_Change(ByVal Target As Range)
' nur aktiv werden, wenn Wert in Zelle "A1" geaendert wurde
If Target.Address = "$A$1" Then
' Blattschutz aufheben
Unprotect
' alle Zellen des Blattes schuetzen
Cells.Locked = True
' den Eingabebereich wieder freigeben
Range("A1").Locked = False
' Zellen des Blattes abhaengig vom Wert in "A1" freigeben
Select Case Range("A1").Value
' wenn "B" in "A1" eingegeben
Case "B"
' Spalte "B" freigeben
Columns("B:B").Locked = False
' wenn "X" in "A1" eingegeben
Case "X"
' Spalte "C" freigeben
Columns("C:C").Locked = False
End Select
' Blattschutz wieder einschalten
Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub


CIAO
Michael
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige