Blattschutz über eine Chechbox in einer Userform ein- und ausschalten

[Excelmania]

Hallo.

ich möchte gerne den Blattschutz auf einem Tabellenblatt über eine Checkbox ein- und ausschalten. Es funktioniert leider nicht. Weiß jemand Rat?

Private Sub CB_Koordinatensystem_Click()

    If CB_Koordinatensystem.Value = True Then ActiveSheet.Unprotect
    ElseIf CB_Koordinatensystem.Value = False Then
    ActiveSheet.Protect , UserInterfaceOnly:=True, DrawingObjects:=True
    End If
   
End Sub

alternativ:

Private Sub CB_Koordinatensystem_Click()

    If CB_Koordinatensystem.Value = True Then ActiveSheet.Unprotect
    Else
    ActiveSheet.Protect , UserInterfaceOnly:=True, DrawingObjects:=True
    End If
   
End Sub

beides klappt nicht.

 

[Stonerrock]

Hallo,

bei mir funktioniertes. Ich habe aber auch ein Active-X Steuerelement verwendet und ddas ActiveSheet.Unprotect in eine neue Zeile geschrieben.

Private Sub CheckBox1_Click()   
    If CheckBox1.Value = True Then
        ActiveSheet.Unprotect
     ElseIf CheckBox1.Value = False Then
        ActiveSheet.Protect , UserInterfaceOnly:=True, DrawingObjects:=True
    End If
End Sub

 

[cumulonimbus8]

Theoretisch…
…dürfte (müsste) die sich selbst schützende Seite verhindern, dass man die Checkbox bedient 😇
Warum ActiveX-Elemente es doch können frage mich gerade, ich habe dazu Buttons in Verwendung.
CN8