Wenn das Passwort eingegeben wird, soll es nicht angezeigt, sondern mit **** angezeigt werden.
geht das? Wenn ja wie muss ich den Code verändern?
Private Sub Image1_Click()
Dim sPassWord As String
sPassWord = InputBox("Paßwort eingeben:", , "")
Select Case sPassWord
Case "easz1764"
With Worksheets("Tabelle2")
.Visible = True
.Application.Visible = True
.Select
End With
Case ""
Case Else
Beep
MsgBox "Falsches Passwort eingegeben!"
End Select