Eine Userform für die Passwort-Abfrage erstellenIch habe Euch hier eine Userform für die Passwort Abfrage erstellt. Damit alles auch so richtig funktioniert und Ihr seht was gemacht werden muß, kann ich hier keinen Code einstellen. Anstatt dessen liegt hier eine Excel-Tabelle. Um in den VBA Editor zu gelangen müßt Ihr ALT + F11 drücken.
An dieser Stelle möchte ich Euch aber kurz erläutern wie Ihr die Sterne, anstatt der Buchstaben, angezeigt bekommt. Geht bitte einmal, wie oben beschrieben, in den VBA Editor. Auf der linken Seite solltet Ihr 2 Fenster geöffnet sehen. Einmal wäre das der Projekt Explorer und zum Anderen das Eigenschaften - Fenster. Ist dem nicht der Fall so solltet Ihr diese unter dem Menüpunkt Ansicht einschalten.
Im Projekt Editor solltet Ihr die Userform Passw finden. Macht bitte einen Doppelklick darauf. Nun klickt Ihr in der Userform einmal in die Textbox. Im Eigenschaften Fenster findet Ihr den Punkt PasswordChar. In das Feld, rechts davon, gebt Ihr ein * ein. Für Leute, welche nur den VBA - Code sehen wollen: Hinter dem Tabellenblatt1 liegt der folgende Code:
Option Explicit
Sub start()
Passw.Show
If Schalter Then MsgBox ("Es geht los!")
End Sub
In der Userform Passw finden wir:
Option Explicit
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub
Private Sub CommandButton1_Click()
Passwort = TextBox1.Value
If Passwort <> "Passwort" Then
TextBox1 = ""
Schalter = False
Exit Sub
End If
Schalter = True
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
und zum Schluss kommt noch das Modul, wo die Variablen definiert wurden:
Public Passwort As String
Public Schalter As Boolean
Das Beispiel habe ich euch aber auch zum Dowload bereit gestellt: klick
|
VBA Makro Beispiele 
