Zellen sperren und entsperren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo David

ich bin mal davon ausgegangen das der Wert in C2 von Hand eingegeben wird und die Tabelle ohne Passwort geschützt ist.

in DieseArbeitsmappe
Option Explicit
Private Sub Workbook_Open()
    If Worksheets("Tabelle2").Range("C2") = 1 Then
        With Worksheets("Tabelle2")
            .Unprotect
            .Range("C4:C17").Locked = False
            .Protect
        End With
    End If
End Sub

in die Tabelle
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$2" Then
        If Target.Value = 1 Then
            With Worksheets("Tabelle2")
                .Unprotect
                .Range("C4:C17").Locked = False
                .Protect
            End With
        Else
            With Worksheets("Tabelle2")
                .Unprotect
                .Range("C4:C17").Locked = True
                .Protect
            End With
        End If
    End If
End Sub

Code eingefügt mit Syntaxhighlighter 1.16

Gruß Hajo

Ich habe mal ein neues Blatt aufgemacht!!
Und die Codes eingefügt!!( VB geöffnet doppelklick auf DieseArbeitsmappe und den entsprechenden Code eingefügt ), das selbe dan bei Tabelle2!!
Bei dieses DieseArbeitsmappe habe ich das reinkopiert:

Option Explicit
Private Sub Workbook_Open()
If Worksheets("Tabelle2").Range("C2") = 1 Then
With Worksheets("Tabelle2")
.Unprotect
.Range("C4:C17").Locked = False
.Protect
End With
End If
End Sub

Und bei Tabelle2 habe habe ich das reinkopiert:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then
If Target.Value = 1 Then
With Worksheets("Tabelle2")
.Unprotect
.Range("C4:C17").Locked = False
.Protect
End With
Else
With Worksheets("Tabelle2")
.Unprotect
.Range("C4:C17").Locked = True
.Protect
End With
End If
End If
End Sub

In die Zellen in Tabelle2 von C4-C17 lässt sich aber immer noch was reinschreiben obwohl in C3 keine 1 steht, dies sollte ja erst möglich sein wenn in C3 eine 1 steht!!
Ich glaube das dein Code richtig ist aber mir irgendetwas fehlt , Makro-Sicherheits einstellungen sind bei mir ausgeschaltet!!
Woran könnte es noch liegen?

MFG
David

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen sperren und entsperren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread