Nieuw workbook wachtwoord

[Sytse1]

In mijn toepassing zit bij het openen een wachtwoord.
Is er een mogelijkheid om met behulp van een commandbutton de gebruiker een userform te laten openen om daar door de gebruiker een eigen wachtwoord er in te laten zetten?
Eerst het oude wachtwoord om de wijziging toe te staan.
Zodat bij een herstart de toepassing alleen met zijn wachtwoord te openen is.
Misschien is het ook mogelijk een supervisor wachtwoord in de toepassing op te nemen zodat bij vergeten ed de toepassing nog altijd te openen is.
Werkblad beveiliging middels vba wil mij wel lukken. Maar de mogelijkheden zoals ik hierboven schets kan ik niet vinden.
Help en bij voorbaat dank

 

[edmoor]

Excel beveiliging blijft natuurlijk een wassen neus.
Maar voor wat je wilt zal het wachtwoord moeten worden opgeslagen, anders dan in de VBA code.
Ik zou hiervoor de Workbook.Names property gebruiken:
https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.names

Zo'n Name kan je ook Hidden opslaan.
Uiteraard maak je daar de combi Gebruikersnaam en Wachtwoord van.

 

[cow18]

slim gezien :thumb:

 

[Sytse1]

Ed, bedank.
Maar wordt dan bij de start van de toepassing niet gevraagd om het ww waarmee de toepassing via Bestand - Opslaan - Beveiligen is opgeslagen?

 

[edmoor]

Je maakt er een userform voor die bij het openen van het document om het wachtwoord vraagt.
Bij een incorrect wachtwoord sluit je dan het document.

 

[Sytse1]

Ik begrijp uit je antwoord dat de toepassing dan niet via via Bestand - Opslaan - Beveiligen is opgeslagen. Maar bij het openen het userform opent waarbij dan om het in de toepassing opgeslagen ww vraagt.

 

[edmoor]

Waarbij die Userform wordt geopend via het Workbook_Open event.

 

[Sytse1]

Ed bedankt weer.