Wachtwoord maskeren

[Roma]

Beste specialisten.

Ik heb 2 macro's om het bestand van de beveiligen en op te heffen.
Bij het opheffen van de beveiliging is het wachtwoord zichtbaar.
Bestaat er de mogelijkheid macro 2 het wachtwoord wordt weergegeven met b.v. sterretjes.
Alvast bedankt

Sub Macro1()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Protect "1234"
Next
End Sub

Sub Macro2()
Dim ww As String
Dim i As Integer
ww = InputBox("Geef uw Wachtwoord")
For i = 1 To Worksheets.Count
Sheets(i).Unprotect ww
Next
End Sub

 

[snb]

Gebruik een textbox in een userform ipv de VBA.InputBox

 

[Roma]

Beste snb,
Dank voor je reactie. Kun je ook aangeven wat dan de vba code is?

 

[OctaFish]

Daar heb je geen code voor nodig; een formulier maken, daar een tekstvak op zetten en bij de eigenschap PasswordChar een * invullen.

 

[Roma]

beste Octafish,
betekend dat ik macro 2 in een tekstvak kan zetten?

 

[OctaFish]

Macro2 kun je ombouwen; die moet dus een formulier openen waar een tekstvak op staat waar het ww wordt ingevoerd en met een knop OK die dan de rest van de code uitvoert.

 

[Roma]

beste Octafish,
Bedankt voor je tips. Ik heb toch te weinig kaas gegeten van VBA want ik kom er niet uit.
Kun je mij vertellen wat in de tekstbox en de knop OK moet staan.

 

[alphamax]

macro2 uitvoeren

 

[Roma]

Alphamax,

Dit is echt super bedankt voor het meedenken.