Paswoord zetten op een button om deze te open

[jefkeh]

Hoi,
Ik heb een commandbutton op een werkblad staan, deze verberg of maak zichtbaar via een macro
Sub Macro29()
'
' Macro29 Macro
'
' Sneltoets: Ctrl+w
'
ActiveSheet.Shapes.Range(Array("CommandButton1")).Visible = False
End Sub
Nu had ik graag als de macro om de button zichtbaar te maken wordt aangeklikt er eerst een schermke verschijnt waar een paswoord moet worden ingevuld,
paswoord uiteraard onzichtbaar.
Wie wil zoiets maken voor mij?
Alvast bedankt

 

[Roncancio]

Is het niet logischer om bij het openen van het bestand mbv VBA te bepalen of de knop zichtbaar moet zijn of niet?
Dit zou dan moeten gebeuren adhv de loginnaam.

Met vriendelijke groet,


Roncancio

 

[jefkeh]

Bedankt voor de snelle reactie, maar
Had ik er moeten bijvermelden, het werkblad wordt door meerdere personen bezocht, maar hetgeen achter de commandbutton zit mag maar door 1 persoon worden gebruikt.
De button staat normaal uit, maar als ze per toeval toch wordt ontdekt of opgezet door een niet bevoegde gebruiker, moet er toch nog een paswoord komen.
Bedankt

 

[Roncancio]

Reden te meer om het op mijn manier te doen.

Private Sub Workbook_Open()
WorkSheets(1).CommandButton1.Visible = Environ("Username") = "jefkeh"
End Sub

Zet bovenstaande code bij ThisWorkbook.
Bij het openen van het bestand wordt commandbutton1 op het 1e werkblad uitsluitend getoond als men als jefkeh is ingelogd.

Met vriendelijke groet,


Roncancio

 

[jefkeh]

Bedankt
Ga het uittesten