Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1012to1016
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
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zell-Schutz

Zell-Schutz
09.10.2008 08:41:06
Paul
Hallo guten morgen,
kann mir jemand sagen, ob es im Excel möglich ist, eine Zelle in Abhängigkeit vom Inhalt einer anderen Zelle zu schützen, bzw. freizugeben (z.B. B3 ist nur frei wenn B1=1)

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

Betreff
Datum
Anwender
Anzeige
AW: mit VBA ja
09.10.2008 08:55:12
UweD
Hallo
ist das gewünscht?

(  @ @  )        (  @ @  )
?oOOo-(_)-oOOo?oOOo-(_)-oOOo?


AW: mit VBA ja
09.10.2008 09:08:00
Eddie
ich würde mich auch mal für eine VBA Variante intressieren, wenns jeht :-) ?
AW: Zell-Schutz
09.10.2008 09:29:00
Luschi
Hallo Paul,
hier mal 1 Beispiel zu Deinem Problem: https://www.herber.de/bbs/user/55905.xls
Das Blattschutz-kennwort steht inm Vba-Code.
Gruß von Luschi
aus klein-Paris
AW: Zell-Schutz
09.10.2008 09:58:00
UweD
Hallo nochmal
Hier ein Beispiel:
der Code muß in ...
- rechtsclick auf den Tabellenblattreiter unten
- Code anzeigen
- im neuen Fenster den Code reincopieren


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:D1")) Is Nothing Then
        'Code läuft nur ab, wenn Zellen innerhalb dieses Bereiches geändert werden
        If Target.Value = 1 Then
            Me.Unprotect
            Target.Offset(2).Locked = False
            Me.Protect
        Else
            Me.Unprotect
            Target.Offset(2).Locked = True
            Me.Protect
        End If
    End If
End Sub


hier noch eine Musterdatei:
https://www.herber.de/bbs/user/55907.xls
Gruß UweD

(  @ @  )        (  @ @  )
?oOOo-(_)-oOOo?oOOo-(_)-oOOo?


Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige