Automatich kleur veranderen bij klikken op knop

[henrie008]

Ik heb op een werkblad 2 knoppen (met een ActiveX-besturingselementen) aangemaakt om het werkblad te beveiligen,
1 knop "beveiliging aan"
1 knop "beveiliging uit"
Nu wil ik graag zien welke knop aan staat, doordat deze na het klikken er op, automatisch groen wordt en de andere knop automatisch rood
Hoe zou ik dit kunnen doen?

 

[edmoor]

Door van die knoppen de achtergrondkleur te veranderen.
Een voorbeeld documentje helpt meestal wel bij het verkrigen van een oplossing.

 

[henrie008]

Ik heb een bestand bijgevoegd

 

[popipipo]

Hier een bestandje uit mijn archief met 1 toggle button.

 

[henrie008]

Dankje, dit is veel beter !!
Maar hoe kan ik de tekst in de knop aanpassen? dat lukt mij niet

 

[edmoor]

Druk in de Ontwikkelaarstab op de knop Ontwerpmodus.
Klik dan met rechts op de button en kies Opdrachtknop-object en vervolgens Bewerken.
Dan kan je de tekst aanpassen:


En de code iets vereenvoudigd:

Private Sub CommandButton1_Click()
    With CommandButton1
        If .Caption = "Verbergen" Then
            .Caption = "Weer tonen"
            .BackColor = RGB(200, 100, 255)
            .ForeColor = RGB(100, 50, 150)
            ActiveSheet.Unprotect
        Else
            .Caption = "Verbergen"
            .BackColor = RGB(100, 50, 150)
            .ForeColor = RGB(200, 100, 255)
            ActiveSheet.Protect
        End If
    End With
End Sub