Besturingsknop Excel

[Pirelo]

1)Kan ik een besturingsknop blokkeren of verbergen voor andere gebruikers.
2) Ik heb de kleur van de knop willen veranderen met een Macro, "Rood" gebruikt "Groen" vrij, manueel werkt het maar met macro niet.

Bijlage VBA code (opgenomen met excel)

 

[Cobbe]

Teken een Button uit de Besturingselementen en hang er deze code achter:

Private Sub CommandButton1_Click()
vrij = ActiveSheet.ProtectContents
If vrij = False Then
  With ActiveSheet
        .EnableAutoFilter = True
        .Protect Password:=ww, UserInterfaceOnly:=True
        .CommandButton1.BackColor = 33023
        .CommandButton1.Caption = "BEVEILIGD"
  End With
 Else
  With ActiveSheet
        .Unprotect Password:=ww
        .CommandButton1.BackColor = 8454016
        .CommandButton1.Caption = "VRIJ"
    End With
End If
End Sub

En zet deze regel in een module:

Public Const ww As String = 1234

 

[Roncancio]

Ik zou gebruik maken van een togglebutton (wisselknop of aan-en-uit-knop)

Met vriendelijke groet,


Roncancio

 

[Pirelo]

Ben maar een beginneling en begrijp er niets van, ik heb al een button waar een macro aanhangt en die zou ik willen beveiligen of verbergen. De kleur heeft geen belang, was een alternatief (rood-afblijven/groen-go) indien er geen oplossing was voor verbergen/beveiligen

 

[Roncancio]

Wat je zou kunnen doen is met onderstaande code controleren of de persoon die inlogt Roncancio is. Uiteraard moet je dat aanpassen je eigen situatie.
Is dat niet het geval dan wordt de knop op blad 1 verborgen.
De code moet geplaatst worden bij ThisWorkbook.

Private Sub Workbook_Open()

Blad1.CommandButton1.Visible = Environ("username") = "Roncancio"
End Sub

Met vriendelijke groet,


Roncancio

 

[Cobbe]

Als beginneling zou je ook beter zoals alle beginnelingen bij de basis beginnen.

 

[Pirelo]

Dank u