mit folgendem Code blenden wir ein Arbeitsblatt ein bzw. aus:
Private Sub Frank_Click()
Dim Passwort As String
Passwort = InputBox("Geben Sie das Paßwort an: ")
'Passwort lautet
If Passwort = "" Then
Sheets("Tabelle1").Select
Sheets("Tabelle1").Visible = False
Wenn ich nu das Passwort in die Inputbox eingebe, wird dieses als Klartext angezeigt.
Kann ich das irgendwie verschlüssel? Eine Anzeige als * wäre ideal, aber auch z.B die
Schrift für die Input Box weiss formatieren, dann könnte auch niemand etwas sehen.
Hat jemand eine Idee?
Danke im voraus
Gruß Gunter