Toggle-Button mit Passwortabfrage und Blattschutz

Ein Toggle-Button schaltet nach vorheriger Passwortabfrage eine Spalte zur Bearbeitung frei. Der Button wechselt nach Eingabe des richtigen Passworts auf grün mit dem Text "entsperrt". Nach Eingabe der Daten in den jetzt offenen Zellbereichen erfolgt ein weiterer Klick auf den Toggle-Button, was die Spalte sperrt. Der Button wechselt wieder auf die Farbe rot und dem Text "gesperrt".
Zusatzinfos:
- Blattschutz ist aktiv mit Passwort
- Spalte E ist mit einem zweiten Teilbereichspasswort geschützt (Benutzer dürfen Bereiche bearbeiten)
Das Makro läuft, aber nicht flüssig.
Problem: Wird der Button zur Blattsperre wieder gedrückt, färbt sich der Button rosa und erst mit einem zweiten Klick wieder in die programmierte Farbe rot. Zudem erfolgt nochmal die Passwortabfrage, was aber in diesem Arbeitsschritt nicht sein soll. Könnt ihr mir bitte helfen? Ist der Code eigentlich im Tabellenblatt oder in einem Modul besser aufgehoben?



Private Sub ToggleButton1_Click()



    If ToggleButton1.Value = True Then GoTo Zeile1

    

Zeile1:

Const strPW = "1234" 'Hier das gewünschte Passwort eingeben!

If ToggleButton1 = False Then

If Application.InputBox("Bitte Passwort eingeben: ", "Geschützter Bereich", Type:=2) = _

strPW Then

'MsgBox "Das Passwort ist richtig!"

    

    ToggleButton1.BackColor = RGB(0, 255, 0)

    Me.ToggleButton1.Caption = "entsperrt"

    Me.Unprotect "Passwort"

    Me.Range("E:E").Locked = False

    Me.Range("A:D").Locked = True

    Me.Range("F:U").Locked = True

    Me.Protect "Passwort"



Else

'MsgBox "Falsches Passwort!"

End If



Else

    ToggleButton1.BackColor = RGB(255, 0, 0)

    Me.ToggleButton1.Caption = "gesperrt"

    Me.Unprotect "Passwort"

    Me.Range("A:U").Locked = True

    Me.Protect "Passwort"





End If

End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub ToggleButton1_Click() Me.Unprotect "Passwort" Const strPW = "1234" 'Hier das gewünschte Passwort eingeben! ToggleButton1.BackColor = RGB(255, 0, 0) ToggleButton1.Caption = "gesperrt" If ToggleButton1 Then If InputBox("Bitte Passwort eingeben: ") = strPW Then ToggleButton1.BackColor = RGB(0, 255, 0) ToggleButton1.Caption = "entsperrt" Else Application.EnableEvents = False ToggleButton1 = False Application.EnableEvents = True End If End If Me.Range("E:E").Locked = Not ToggleButton1 Me.Protect "Passwort" End Sub

Application.EnableEvents = False If Target.Column = 2 Then Target.Offset(, 3).Value = Target.Value 'Spalte 2 übernimmt den Wert aus Spalte 5 If Target.Column = 5 Then Target.Offset(, -3).Value = Target.Value 'Spalte 5 übernimmt den Wert von Spalte 2 End If Application.EnableEvents = True

Private Sub Worksheet_Change(ByVal Target As Range) Dim sp, ze, zielsp sp = Target.Column: ze = Target.Row If sp > 2 And sp > 5 Then Exit Sub 'Nur auf Änderungen in B und E reagieren Application.EnableEvents = False zielsp = 5: If sp = 5 Then zielsp = 2 Cells(ze, zielsp) = Target Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

Toggle-Button mit Passwortabfrage und Blattschutz

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Toggle-Button mit Passwortabfrage und Blattschutz

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread