Knoppen / Buttons verbergen in excel ?

[mboertje]

Ik ben bezig met het maken van een telefoonlijst in excel, een van de onderdelen daarin is een inlog voor degene die hem mag onderhouden.

Op een werkblad heb ik een aantal knoppen die alleen van toepassing zijn voor de onderhouder, kan ik deze verbergen, zodat ze alleen zichtbaar worden als men is ingelogd als onderhouder ? Hieronder de macro waarmee je moet inloggen.

Sub inlog()
'
' Macro inlog
'

'
Sheets("Gebruikersscherm").Select
Password = InputBox("Vul het wachtwoord in om als onderhouder in te loggen!")
If Password <> "centrale" Then GoTo Onjuist_Wachtwoord
If Password = "centrale" Then GoTo vervolg



vervolg:
Sheets("Gebruikersscherm").Select
Columns("A:C").Select
Range("A20").Activate
Selection.EntireColumn.Hidden = False
Range("H3").Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
Range("H4").Select
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With


Exit Sub


Onjuist_Wachtwoord:
MsgBox ("Het wachtwoord is onjuist! U bent ingelogd als gebruiker")
Sheets("Gebruikersscherm").Select


Exit Sub
End Sub

 

[edmoor]

Gaat dat om formulierknoppen of ActiveX knoppen?

 

[mboertje]

Gaat dat om formulierknoppen of ActiveX knoppen?

Knoppen gemaakt via invoegen / vormen

Klik ik op eigenschappen dan zie ik àls laatste optie: besturingselement opmaken.

 

[edmoor]

Dan is het een Figuur (Shape)
Gebruik daarvoor ActiveSheet.Shapes("Button 1").Visible = False

Button 1 is hier uiteraard de naam van je shape.

 

[jolivanes]

You can try this.

Computer naam ophalen met:

Sub GetCompName() 
	Range("B2").Value = Environ("ComputerName") 
End Sub

Plak de verkregen naam in de code en plak de code in the "ThisWorkbook" code window

Private Sub Workbook_Open()
    If Environ("computername") <> "Copy Cell B2 Value here" Then
    Sheets("Sheet1").Shapes("Button 1").Visible = False
    Else
    Sheets("Sheet1").Shapes("Button 1").Visible = True
    End If
End Sub

Het zou kunnen dat het per ongeluk werkt.