AW: Userform2 mit Passwortabfrage öffnen.
Oberschlumpf
Beitrag-Funktion
Zeigt einen Hinweis darauf, dass ein Forum-Teilnehmer eine Frage hat, eine Antwort geben möchte, eine allgemeine Bemerkung geben möchte.
Syntax
Beitrag begrüßungsformel, [ Name ], Text, Schlussformel,
Die Syntax der Beitrag-Funktion verwendet die folgenden Argumente:
| Teil | Beschreibung |
| begrüßungsformel | Erforderlich. Ein Zeichenfolgenausdruck, der den landesüblichen Geflogenheiten entspricht.
Eine Auswahl möglicher Werte kann der folgenden Zeile entnommen werden.
"Hallo", "Hi", "Guten Tag"
Auch die Verwendung von umgangssprachlichen Angaben, wie z Bsp "Moin" oder "Tach" ist möglich.
|
| name | Optional. Ein Zeichenfolgenausdruck, der mit Hilfe des Argumentes
begrüßungsformel die gewünschte Zielgruppe einschränkt.
|
| text | Erforderlich. Ein Zeichenfolgenausdruck, der Auskunft über das eigentliche Anliegen des Fragenden gibt.
Der Inhalt ist frei wählbar, sollte jedoch freundlich und qualifiziert gestaltet werden.
|
| schlussformel | Erforderlich. Ein Zeichenfolgenausdruck, der den landesüblichen Geflogenheiten entspricht.
Eine Auswahl möglicher Werte kann der folgenden Zeile entnommen werden.
"Ciao", "Gruß", "viele Grüße", "Tschüss"
Auch hier ist die Verwendung von umgangssprachlichen Angaben, wie z Bsp "und wech..." möglich.
Zusätzlich möglich ist es, dass schlussformel den eigenen Namen und/oder den Wert aus name enthält. |
Vielleicht versteht auch der Ersteller dieses Threads jetzt, dass ein Beitrag ohne Begrüßungs- und Schlussformel nicht wirklich vollständig ist.
In diesem Sinne... :-)
Thorsten
Hallo Stefan
Versuch es mal so.
Im Klick-Ereignis des Buttons steht dieser Code:
Private Sub cmdFrm2Show_Click()
frmPW.Show
End Sub
Sobald ein Klick erfolgt, wird die Userform mit dem Namen frmPW angezeigt, welche dann so aussieht:
Hier steht im KeyCode-Ereignis des Textfeldes dieser Code:
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If TextBox1.Text = "passwort" Then
Unload Me
frm3.Show
Else
TextBox1.Text = ""
hinweis = MsgBox("Passwort falsch!", vbCritical)
End If
End If
End Sub
Sobald der ermittelte KeyCode = 13 ist (es handelt sich um den KeyCode der Enter-Taste), wird der Inhalt des Textfeldes geprüft.
Wenn es sich um das Wort "passwort" handelt, ist alles OK und die 3. Userform wird angezeigt.
Wenn nicht das richtige Passwort eingegeben wurde, erscheint ein entsprechender Hinweis, das Textfeld wird geleert, und die Eingabe kann erneut beginnen.
Damit als Eingabe jedes Zeichens ein "*" sichtbar wird, musst Du für die Eigenschaft PASSWORDCHAR das "*" oder ein beliebiges Zeichen Deiner Wahl eingeben.
Vergibst Du für diese Eigenschaft kein Zeichen, erfolgt die Passwort-Eingabe in Klarschrift.
Die 3. Userform sieht in meinem Bsp so aus:
So, das wars.
Natürlich musst Du die Userformen entsprechend Deinen Anforderungen anpassen. Aber ich denke, zum Verständnis reicht dieses Bsp, oder?
Konnte ich helfen?
Ciao
Thorsten