Profil von Christian030

Frage

von Christian030

22.10.2012, 21:41

Zelle über VBA sperren

In der ComboBox111 kann man folgendes auswählen:

Arbeitstag
Urlaub
Krank

Die ComboBox111 ist mit der Zelle D2 verlinkt.

Wenn ich nun Urlaub oder Krank auswähle,

wird als erstes die Combobox geleert und danach ausgeblendet.

nun sollen die Zelle für die nachträgliche Bearbeitung gesperrt werden.

Wenn ich aber Arbeitstag auswähle,

soll die Zelle wieder zum bearbeiten freigegeben sein.

Der bisherige Code lautet:

Private Sub ComboBox111_Change()

If ComboBox111.Value = "Urlaub" Or ComboBox111.Value = "Krank"  Then
        ComboBox1.Value = ""
        ComboBox1.Visible = False
        ComboBox2.Value = ""
        ComboBox2.Visible = False
    Else
        ComboBox1.Visible = True
        ComboBox2.Visible = True
    End If
End Sub

Die ComboBox1 ist mit der Zelle T12 verlinkt

Die ComboBox2 ist mit der Zelle V14 verlinkt

Wenn ich die Zellen unter

Zelle formatieren -> Schutz -> Gesperrt

schützen möchte, kann ich aber wenn Arbeitstag ausgewählt wurde

in der ComboBox nichts auswählen, da die Zelle schreibgeschützt ist.

kann mir Bitte jemand helfen?

...zur Frage

Antwort

von Christian030

23.10.2012, 14:45

Hallo ich habe bis jetzt folgenden Code erstellt.

Private Sub ComboBox111_Change ()   
            If ComboBox111.Value = "Urlaub"   Then
                ComboBox1.Value = ""
                ComboBox1.Visible = False
                ComboBox2.Value = ""
                ComboBox2.Visible = False
            Else
                ComboBox1.Visible = True
                ComboBox2.Visible = True
            End If
        End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect
    If ComboBox111.Value = "Urlaub"  Then
        Range("T12").Locked = True
        Range("V14").Locked = True
    Else
        Range("T12").Locked = False
        Range("V14").Locked = False
    End If
ActiveSheet.Protect
End Sub

Wähle ich jetzt in der ComboBox111 Urlaub aus,

dann Werden die ComboBox1 und ComboBox2 geleert sowie ausgeblendet.

klicke ich jetzt in die Zelle T12 oder V14

so ist die Zelle geschützt.

soweit so gut.

Wähle ich jetzt in der ComboBox111 Arbeitstag aus,

dann werden die ComboBoxen wieder eingeblendet.

nun möchte ich über die ComboBox1 oder ComboBox2

einen Wert eingeben

jetzt bringt er mir immer noch die geschützt-Meldung und übernimmt den Wert.

erst wenn ich vorher in eine Zelle klicke

dann kann ich problemlos über die ComboBox1 oder ComboBox2 einen Wert eingeben.

Kann man in den Code irgend etwas reinschreiben,

damit bei Auswahl von Arbeitstag

in der ComboBox111

die Zellen T12 und V14 gleich freigegeben sind?

...zur Antwort