zellen schützen

Bild

Betrifft: zellen schützen
von: Maik
Geschrieben am: 26.11.2003 02:37:38

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.

Bild


Betrifft: AW: zellen schützen
von: Michael Brueggemann
Geschrieben am: 26.11.2003 08:53:40

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


Bild

Beiträge aus den Excel-Beispielen zum Thema " zellen schützen"