Wer kann mir bei meinem kleinen Problem helfen?
Möchte auf gheschützte Zellen zugreifen über
Protect
UnProtect.
Bekomme aber immer eine Fehlermeldung beim Aufruf der Zeilen.
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Worksheets("Driver-Door").Visible = True
Worksheets("Driver-Door").Activate
With Worksheets("Startdaten").Range("C18")
.Unprotect
.Value = "Ja"
.Protect
End With
ToggleButton1.Caption = "Nein"
ToggleButton1.Font.Bold = True
Else
Worksheets("Driver-Door").Visible = False
With Worksheets("Startdaten")
.Activate
.Range("C18").Unprotect
.Range("C18").Value = "Nein"
.Range("C18").Protect
End With
ToggleButton1.Caption = "Ja"
End If
End Sub
Vielleicht kann mir jemand saen, was an obigem Code falsch ist.
lg
Max