geen letters maar ****** voor paswoord

[brwds]

Graag had ik de te vernoemen paswoorden niet in letters maar in ***** zien verschijnen,
macro ook gevonden op deze site.

Sub Macro1()

Dim Sh As Worksheet
Dim Antwrd As String

On Error Resume Next

For Each Sh In Sheets
Sh.Visible = False

Next

Antwrd = LCase(InputBox("GEEF PASWOORD", "KONTROLE"))
Select Case Antwrd

Case "admin" '

For Each Sh In Sheets
Sh.Visible = True

Next

Case "x"

Sheets("s").Visible = True
Sheets("o").Visible = True

Case Else

MsgBox ("VERKEERD PASWOORD EN HET PROGRAMMA SLUIT AF")
ThisWorkbook.Close SaveChanges:=False

End Select


End Sub


alvast bedankt voor het beantwoorden

groetjes
brwds

 

[danny147]

Beste brwds

Kijk eens naar deze topic, is dit soms iets dat je kan gebruiken ?

Groetjes Danny. :thumb:

 

[brwds]

Beste Danny,

Heb vergeten melden dat ik een leek ben in VBA , na lang proberen er niet uitgeraakt.

Waar moet ik "????("admin").Visible=xlVeryHidden" plaatsen ??

Alvast bedankt voor uw geduld

brwds

 

[leofact]

De Visible=xlVeryHidden verstopt een blad op een dieper niveau.
Bij jou gebruik je dat door de sh.visible = false te vervangen door
sh.Visible=xlVeryHidden"

Met een inputbox kun je karakters niet door astrixen vervangen voor invoer van een wachtwoord
Dit kan wel met een TextBox
Hiervan kun je bij de eigenschap Passwordchar zelf aangeven door welk teken je de ingetypte karakters wil vervangen.

De TextBox wordt als onderdeel van een Userform gebruikt.

mvg leo

 

[danny147]

Beste brwds

Zoals Leo het aangeeft,

xlVeryHidden verstopt b.v. het werkblad.

U kunt dit verbergen door op Alt+F11 te drukken dubbelklik dan op sheet1(config).
Onderaan bij eigenschappen zie je visible, rechts daarnaast klik je op het driehoekje en zie dan in de lijst xlVeryHidden staan klik hierop en het tabblad zal dan niet meer zichtbaar zijn daar waar de codes op staan.

Groetjes Danny. :thumb:

 

[Roncancio]

In bijgevoegd bestand zit een simpel formulier waarin de gebruiker een wachtwoord in kan voeren waarna op OK kan worden gedrukt.
Bij het invoeren van letters verschijnt automatisch *. Met een input box kan dit niet.

Overigens zit er (nog) geen code achter de knop.
Je kunt dus van alles invoeren zonder dat je echt een wachtwoord in moet voeren.

Met vriendelijke groet,


Roncancio