Wachtwoord voor meerdere macro's op een plaats

[KeBr]

Beste,

Ik heb een bestand met meerdere macro's die voor het uitvoeren de beveiliging van het werkblad moeten opheffen. Met onderstaande gaat dat goed. Echter als ik het wachtwoord wil wijzigen moet ik dat bij elke macro doen.
Is er een manier om het wachtwoord ergens centraal te hebben en dat het door alle macro's gebruikt kan worden?

Dim ww As String
ww = "Wachtwoord"
Sheets("Blad1").Unprotect Password:=ww

"mijn code"

Sheets("Blad1").Protect Password:=ww

 

[AHulpje]

Function Wachtwoord() As String
    Wachtwoord = "ww"
End Function

En zo gebruiken:
Sheets("Blad1").Unprotect Password:=Wachtwoord()

 

[KeBr]

Beste AHulpje,

Dank voor je reactie. Nog een vraag, waar zet ik die code? moet dat in de worksheet? of in het Thisworkbook

 

[AHulpje]

In een module.
Klik met de rechtermuisknop op Thisworkbook, Invoegen, Module, en plaats daar de functie.

 

[KeBr]

Dank voor je reactie, Dit werkt goed.

 

[KeBr]

Beste AHulpje,

Ik kom er achter dat het goed werkt zolang de macro's in een Module staan. Macro's (Private Sub en Button_Click) in een werkblad werkt het niet bij.

 

[AHulpje]

Zou moeten werken, kun je hier een voorbeeld plaatsen?

 

[edmoor]

Een functie is niet nodig.
Gebruik er een Public variabele voor.

Of zoiets, als je niet wilt dat deze zomaar duidelijk leesbaar in de code staat:

 

[AHulpje]

Blad1.Wachtwoord="gekraakt"

 

[edmoor]

Uiteraard.
Het gaat er maar om dat het niet zomaar leesbaar is in de code.

 

[edmoor]

@AHulpje,
Deze is ook wel leuk

 

[snb]

minder leuk:

 

[edmoor]

Is ook een leuke inderdaad

 

[KeBr]

Beste mensen,
Dit is inderdaad een manier om een wachtwoord weer te geven.
Ik zie echter niet hoe ik dit kan gebruiken om een macro de beveiliging tijdelijk te laten opheffen en later weer terug te zetten.
Het document gaat door meerdere personen gebruikt worden namelijk.
Ik heb er nu de manier van AHulpje ingezet en dat werkt.