Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
536to540
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
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
MsgBox oder Assistant mit Eingabemöglichkeit
21.12.2004 15:37:33
Giuseppe
hallo VBA-Profis
Kann mann "MsgBox" oder "Assistant" mit einem
Eingabefeld formatieren.
Ich möchte gerne Eine Meldung:
Überschrift: "Passworteingabe"
Text: "Bitte geben Sie das Passwort ein:"
Feld:
Button: OK - Abbruch
kann man sowas im VBA machen, ohne ein "UserForm"
zu kreieren?
mfG
Giuseppe

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MsgBox oder Assistant mit Eingabemöglichkeit
Dr.
VB-Hilfe, Stichwort "InputBox".
AW: MsgBox oder Assistant mit Eingabemöglichkeit
21.12.2004 15:48:40
Giuseppe
Danke Dr.
Ich hatte eine ganze Weile nach einem solchen Ausdruck gesucht...
Dafür habe ich ein wenig dazugelernt, über "MsgBox und Assistant"
mfG
Giuseppe
AW: MsgBox oder Assistant mit Eingabemöglichkeit
René
hallo versuchs mal so,
MsgBox "Bitte geben Sie das Passwort ein.", vbOKCancel, "Passworteingabe."
Gruß
René
AW: MsgBox oder Assistant mit Eingabemöglichkeit
21.12.2004 15:51:40
Giuseppe
hallo René
Danke.
Aber wo gebe ich das Passwort ein?
mfG
Giuseppe
AW: MsgBox oder Assistant mit Eingabemöglichkeit
René
Du willst also eine Passworteingabe haben?
Passwort = inputbox("Bitte geben Sie das Passwort ein", "Passworteingabe")
AW: MsgBox oder Assistant mit Eingabemöglichkeit
21.12.2004 21:07:04
H.W
Hallo Giuseppe
aus meinem Archiv. Button erzeugen und Code eingeben. Passwort "abc"

Sub Passwort_pruefen()
Dim PWort As String, PWEingabe As String, Fehler As Byte
PWort = "abc"
Fehler = 1
nochmal:
' Die Passwort Eingabe wird geprüft
PWEingabe = InputBox("Bitte geben sie Ihr Passwort ein" & Chr(13) & _
"", "Passwortabfrage")   '"Das richtige Passwort lautet: ""abc"""
If PWEingabe <> PWort Then
' Prüfen wie oft bereits Fehler
If Fehler < 3 Then
MsgBox "Sie haben kein oder ein ungültiges Passwort eingegeben!", _
vbOKOnly, "Falsche Eingabe"
Fehler = Fehler + 1 ' Fehler zählen
GoTo nochmal ' Zurück zur Passworteingabe
Else
MsgBox "Sie haben 3 Mal ein falsches Passwort eingegeben" _
& Chr(13) & "Die Datei wird geschlossen"
' Datei ohne Speichern schließen
ThisWorkbook.Close SaveChanges:=False
End If
Else
MsgBox "Ihre Passwort-Eingabe war OK"
End If
End Sub


Tschüs H.W
Anzeige
AW: MsgBox oder Assistant mit Eingabemöglichkeit
22.12.2004 15:58:54
Giuseppe
hallo H.W Schmidt
Herzlichen Dank.
Das Makro ist perfekt.
Ich habe es schon in mein Programm eingebaut und auch getestet.
Es könnte nicht besser sein.
P.S.
Ihr Forum ist in jeder Hinsicht super !
Einen grossen Dank, geht auch an alle Leute, die jeden Tag unermüdlich
und kompetent Fragen von X-Personen beantworten.
EIN GROSSES KOMPLIMENT!
mfG
Giuseppe

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige