Werte per Maus einfügen bei Blattschutz

[ItsME]

ok..

habs...

Code:

Option Explicit
Sub ListeAnzeigen()
    ActiveSheet.Unprotect Password:="chrissy"
    If ListeArbeitsblätter.Visible = True Then
    Unload ListeArbeitsblätter
Else:  ListeArbeitsblätter.Show vbModeless
    ListeArbeitsblätter.Top = 259
    ListeArbeitsblätter.Left = 1298
End If
    If [d2].Value = "Free" Then Exit Sub
    ActiveSheet.Protect Password:="chrissy"
End Sub

funktioniert.. danke :)

Guten Rutsch allerseits und im speziellen