***** ipv letters/cijfers

[Ericssport]

Beste probleemoplossers,

Ik heb zelf al het één en ander geprobeerd, helaas reikt mijn kennis van VBA niet ver genoeg om dit probleem op te lossen.
Door middel van de onderstaande code heb ik een bestand beveiligd, alleen vroeg ik mij af of het mogelijk was om in plaats van letters en cijfers **** oftewel sterretjes te krijgen bij het wachtwoord?!

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Worksheets("Hoofdblad").Activate
NietZichtbaar
Me.Save
Application.DisplayAlerts = True
End Sub

Private Sub Workbook_Open()
Application.ScreenUpdating = False

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 wachtwoord", "Controle"))
Select Case Antwrd

Case "admin"
For Each Sh In Sheets
Sh.Visible = True
Next

Case "aze"
Sheets(1).Visible = True
Sheets(2).Visible = True
Sheets(3).Visible = True
Sheets(Hoofdblad).Visible = True


Case Else
ThisWorkbook.Close SaveChanges:=False
End Select
End Sub

 

[Ginger]

Ericssport, gebruik ipv de 'inputbox' een userform met een textbox. Daar kan je een eigenschap op 'password' zetten waardoor je gewenste sterretjes zichtbaar worden.

Groet, Leo

 

[Ericssport]

Dank voor de snelle reactie, ik heb geprobeerd de textbox in te voegen, helaas ben ik een ware nitwit in dit alles, hoe zou kan ik er een textbox van maken?!

 

[Warme bakkertje]

Zie bijlage

Mvg

Rudi

 

[Ericssport]

Mijn dank is groot!