Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
636to640
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

InputBox: Abbrechen Button

InputBox: Abbrechen Button
19.07.2005 16:14:13
Stephan
Hallo!
Habe eine Frage zu einer InputBox: Möchte mit Hilfe einer solchen InputBox eine Passwortabfrage durchführen. Das klappt auch genauso wie ich gerne hätte, der einzige Haken ist, dass ich den "Abbrechen"-Button der InputBox nicht sinnvoll nutzen kann. Mein Ziel ist es, durch drücken des Abbrechen-Buttons die gesamte Passwortabfrage sofort, ohne Überprüfung, zu beenden und zum Ausgangspunkt zurückzukehren.
Hoffe die Frage ist verständlich!:-) Dabke für jede Hilfe!
Viele Grüße,
Stephan

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: InputBox: Abbrechen Button
19.07.2005 16:22:14
Sylvio
Hallo Stephan ich habs so gemacht

Private Sub TDSystemSetup_Click()
Dim kw As String
Dim Cancel As Integer
Dim CloseMode As Integer
On Error GoTo fehlerweg
Unload Tooldialog
kw = InputBox("Bitte geben Sie Ihr Kennwort ein ...")
If kw <> "" Then CloseMode = 1 'wenn Eingabe leer einfach inputbox zumachen
If CloseMode = vbFormControlMenu Then
Cancel = True
wenn auf x gedrückt wird was er dann machen soll
End If
If kw = "test" Then
was soll geschehen wenn passwort richtig einfach hierrein.
End If
End Sub

Gruß Sylvio
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige