Knop (macro) beveiligen met password

[Josss]

Is het mogelijk in Excel ('97) een knop c.q. de daaraan verbonden macro, te beveiligen met een wachtwoord?

Ik bedoel dus alleen de knop/macro beveiligen, en niet het hele blad of de hele werkmap.

 

[Hooija]

Je kan dit zelf maken door als event aan de knop eerst een input venster te laten zien met een invoer veld voor het wachtwoord en een go knop.
bij het indrukken van de go knop kun je dan checken of de invoer correct is en dan met een if .... then ..... else
de macro wel of niet laten starten.

 

[Bennie]

Laat je code voorafgaan door de volgende code:

Public Sub MyMacro()
Const PWORD As String = "wachtwoord"
Dim response As String
Dim msg As String
msg = "Voer wachtwoord in:"
Do
response = Application.InputBox(Prompt:=msg, _
Title:="Password", Type:=2)
If response = CStr(False) Then Exit Sub 'Cancelled
msg = "Incorrect!" & vbNewLine & "Voer opnieuw wachtwoord in:"
Loop Until response = PWORD

'Voer code in

End Sub

Om pottenkijkers buiten de deur te houden, klik je in de VBA-editor op Extra\eigenschappen van het VBAproject. Op het tabblad beveiliging zet je een vinkje bij "Project vergrendelen voor weergave" en vul je een wachtwoord in.

Groetjes,
Bennie

 

[Josss]

Bedankt voor de reactie! Ik zal de code uitproberen.

 

[Djoties]

Ik heb hierbij hulp nodig

Ik zou graag mijn commando knop willen beveiligen met een password.
Helaas kom ik met bovenstaande even niet uit.
Ben ook een beginner.

Kan iemand mij mee helpen??
Password die ik wil gebruiken = auto

Alvast bedankt

 

[Djoties]

Thanks

Ik ben al uit.

Oke