1 knop voor beveiliging aan en uit

[vrouw]

Ik wil graag 1 (toggle)knop voor het aan en uit zetten van de beveiliging op het werkblad.

Voor de knop heb ik deze code

Private Sub CommandButton1_Click()

 With CommandButton1
   If .Caption = "START" Then .Caption = "STOP" Else .Caption = "START"
   If .Caption = "START" Then sleutel = True Else sleutel = False
   If .Caption = "START" Then .BackColor = RGB(0, 128, 64) Else .BackColor = RGB(255, 255, 0)
 End With
End Sub

en voor de beveiliging aan en uit deze

Sub ToggleProtect()
If ActiveSheet.ProtectContents Then
ActiveSheet.Unprotect "password"
Else
ActiveSheet.Protect "password"
End If
End Sub

Hoe maak ik hier één macro van?

 

[Haije]

dat zou zo kunnen

Private Sub CommandButton1_Click()

 With CommandButton1
   If .Caption = "START" Then .Caption = "STOP" Else .Caption = "START"
   If .Caption = "START" Then sleutel = True Else sleutel = False
   If .Caption = "START" Then .BackColor = RGB(0, 128, 64) Else .BackColor = RGB(255, 255, 0)
 End With
Call ToggleProtect
End Sub

 

[vrouw]

Op zich werkt dat goed alleen is het dat het (un)protect sheet icoon op het lint grijs blijft.
Zowel in de beveiligde als de onbeveiligde modus.

 

[vrouw]

Op zich werkt dat goed alleen is het dat het (un)protect sheet icoon op het lint grijs blijft.
Zowel in de beveiligde als de onbeveiligde modus.

Daar is geen oplossing voor?

 

[VenA]

Als je in/op een willekeurige cel klikt dan zal je zien dat de kleur van het icoon wel weer normaal wordt. Eventueel kan je dit in jouw code opnemen:

activecell.select

 

[vrouw]

Als je in/op een willekeurige cel klikt dan zal je zien dat de kleur van het icoon wel weer normaal wordt. Eventueel kan je dit in jouw code opnemen:

activecell.select

Thanks, ga ermee aan de slag.