Clever-Excel-Forum

Hallo zusammen :),

ich habe meine Tabelle nun endlich fertig, deshalb wollte ich Sie mit einem Blattschutz versehen.
Ich habe 3 Checkboxen, 2 Checkboxen sollen immer im Feld daneben, wenn angeklickt eine 1 einsetzten dies klappt auch wunderbar.
Nur bei einer Checkbox sobald der Blattschutz aktiviert ist bloppt ein Fenster auf Fehler 400, das verstehe ich nicht, fast der selbe Code ist in der Checkbox daneben drin, diese funktioniert perfekt mit und ohne Blattschutz

Code vom Übeltäter:

Sub jungeleute()
With ActiveSheet.CheckBoxes
    For i = 8 To 200
        .Add(Cells(i, "L").Left, Cells(i, "L").Top, 0, 0).Select
        Selection.Caption = ""
        Selection.OnAction = "Tabelle1.Kontrollkästchen_Klicken2" 'im Kopf des sheets
    Next i
End With
End Sub

Sub jungeleute2(Adr As String, An As Integer)
    RR = Split(Adr, "$")(2)
Debug.Print Adr, An, RR
If An = 1 Then
    Cells(RR, "M") = 1
Else
    Cells(RR, "M") = 0
End If
End Sub

Hallo,

ich kenne deine Datei nicht und werde sie nich nachbauen.  Sehe aber was der Fehler sein könnte, und zwar hier:
.Add(Cells(i, "L").Left, Cells(i, "L").Top, 0, 0).Select    

Mit Add fügst du ein neues Objekt ein. Bei gesperrtem Blatt nicht möglich!  Wasrum du aber ein neues Object einfügst ist mit unklar?  
For i = 8 To 200   Wenn ich das richtig verstehe sollen hier 200 neue Checkboxen eingefügt werden.  Ist das so gewollt?  So richtig???

mfg  Gast 123 

Nachtrag

wenn das Makro so funktionieren soll dann bitte so:  (Wenn ein Passwort existieren sollte bitte hinter Unprotect so mit angeben: "Passwort"

Sub jungeleute()
ActiveSheet.Unprotect
With ActiveSheet.CheckBoxes
    For i = 8 To 200
        .Add(Cells(i, "L").Left, Cells(i, "L").Top, 0, 0).Select
        Selection.Caption = ""
        Selection.OnAction = "Tabelle1.Kontrollkästchen_Klicken2" 'im Kopf des sheets
    Next i
End With
ActiveSheet.Protect
End Sub

Hallöchen,
Du kannst auch mal schauen, ob es mit anderen Blattschutzeinstellungen geht. Und dann noch eine Zusatzfrage. Tust Du denn öfters gut 200 Checkboxen hinzufügen?
Ich glaube das eher nicht. Da dürfte der Fehler eher im Code 2 liegen. Aber da kannst Du ja auch den Änderungsvorschlag verwenden.

Vielen Dank für eure Hilfe :)
der Code funzt iwie auch nicht :(
Ja das ist gewollt ich habe eine Tabelle in 2 Spalten sind je ca. 200 Checkboxes, dies ist auch so gewollt.
Ich sobald ich iwo einen Blattschutz einfüge kommt der Fehler (

Ich habe das Problem behoben, jedes Blatt einzeln bearbeitet erst alles schützen dann einzeln etliche Spalten wieder vom Schutzbefreit und alles wieder klein zusammen gezogen.