Knoppen verbergen

[Dafje1986]

Kan je knoppen (command buttons) verbergen of op slot doen als je niet de goede gebruiker bent?

Hoe moet je dat dan doen?

Mij niet werkende code

Private Sub Workbook_Open()
If Application.UserName <> "piet" Then
        Worksheets(1).CommandButton1.CommandButton.Locked = True
End If
End Sub

 

[SKVR]

Ik zal even een voorbeeld database voor je uploaden.
Dit is een bestaande database die ik (en mijn klasgenoot) moesten aanpassen door extra dingen toe te voegen.

Aan de hand van deze database had ik een inlognaam voor mezelf gemaakt als ADMIN, dus ik zag alle knoppen. Als Gast zie je niet alle knoppen.

de code(s) moet(en) in VB onder FORM_LOAD geplaatst worden.


Ik geef je de database dan kun je er zelf naar kijken.

Asje:
http://uploaded.to/?id=poddm7

Inlognaam: Beheer
wachtwoord: beheer

als je als gast wilt inloggen:
Inlognaam: Gast
wachtwoord: gast

 

[Dafje1986]

Bij mij is het in een excel bestand, en het hoeft alleen wel of niet te werken.
Werkt het in access niet heel anders dan in excel?

 

[SKVR]

owww stom van me had niet gezien dat het voor excel was.
Om eerlijk te zijn weet ik niet of het hetzelfde is. Miscchien kun je het proberen.

 

[tilpi]

Private Sub Workbook_Open()
If Application.UserName <> "piet" Then
        
        Worksheets(1).CommandButton1.Enabled = False
End If
End Sub

Mvg

Piet

 

[Dafje1986]

Perfect! ik zat in de buurt
Bedankt allen