VBA User Input bei jedem Buchstaben/Zahl prüfen?

Hallo Miteinander
Ich würde gerne in VBA Word eine Inputbox oder Userform machen bei welcher man ein Passwort eingeben kann. Ich will aber nicht, das man das Passwort abschliessen muss, sondern das bei jedem Buchstaben bereits kontrolliert wird, ob das Passwort stimmt.

Weiss jemand wie das Funktioniert?

2 Antworten

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

VBA

13.07.2021, 19:13

Ein Textfeld hat nach JEDEM Tastendruck ein "ChangeEvent" zur Folge,
auch darin kann man gegen einen Sollwert prüfen. Achte darauf das im TExtfeld "Sternchen" angezeigt werden, sobald ne irgendeine Taste gedrückt wird.
Dies ist eine Eigenschaft des Textfeldes und muss gesondert programmiert werden.

Mauritan

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Computer

13.07.2021, 18:29

verwende als Event "keypressed" (bitte in der Hilfe nachsehen, wie das in VBA heißt) und lies die bis dahin geschriebenen Buchstaben.

Achte jedoch auch auf Sicherheit. Du willst einem möglichen Passwortknacker nicht mit Farben der Schrift und Rückmeldungen helfen.

Woher ich das weiß:Berufserfahrung – ich arbeite schon sehr lange im EDV Bereich, viele Sparten

Ähnliche Fragen

Excel VBA IsNumeric?

Hallo!

Ich arbeite gerade mit VBA und habe folgendes Problem:

Ich habe ein Eingabefeld und möchte, dass das Programm nur weiterläuft, wenn drei Bedingungen erfüllt sind. Es soll sich um eine Zahl handeln, sie soll ganzzahlig sein und größer gleich Null.

Ich habe folgendes zusammengebastelt:

Dim Zahl As Variant

start:

Zahl = InputBox("Zahl eingeben")

If Anzahl <= 0 Or IsNumeric(Zahl) = False Or Int(Anzahl) = False Then

MsgBox ("Zahl muss ganzzahlig und größer als 0 sein. Bitte erneut eingeben.")

GoTo start

Mit der ersten Bedingung klappt noch alles so wie es soll. Wenn ich einen Buchstaben eingebe, kommt eine Fehlermeldung und wenn ich keine ganzzahlige Zahl eingebe, läuft es einfach weiter.

Ich habe keine Erfahrung mit VBA und hoffe, dass mir jemand meinen Fehler erklären kann.

Vielen Dank schon Mal!

...zur Frage

VBA-Excel Fehler: Zahl ist ungültig?

Hallo, ich arbeite zurzeit an einer Excel:

Ich versuche Daten aus einer Tabelle durch eine Abfrage der Nummern in einer UserForm auszugeben.

Mein Problem: Ich habe mir ein Tutorial angeschaut, doch dort wurde int benutzt, meine Nummer beinhaltet jedoch auch Buchstaben; das Ändern in String geht jedoch nicht.

Fehlermeldung bei der Eingabe = Zahl ungültig.

Tutorial: https://www.youtube.com/watch?v=HQ01Mt0CPRg

Wäre super, wenn mir das jemand definieren könnte.

Devo

...zur Frage

Word VBA Textmarken Text ersetzen?

Hallo zusammen,

ich arbeite gerade an einer UserForm, mittels welcher der User Daten zu einer Person eingeben kann, welche automatisch ins Dokument eingefügt werden.

Sollstnad : "Name : Hans Peter" und sobald das Makro nochmal ausgeführt wird, soll Hans Peter z.B. durch Michale Maier ersetzt werden.

Jedoch sieht das beim zweiten Ausführen des Makros so aus : "Name : Hans PeterMichael Maier"

Also die eingabe wird hinter die erste Eingabe gesetzt, statt sie zu erseten

Mein code :

Private Sub CB_Submit_Click()

Dim v_Name As Range

Set v_Name = ActiveDocument.Bookmarks("BS_Name").Range

v_Name.Text = Me.TB_Name.Value

UserForm.Hide

End Sub

Danke schonmal für eure Antworten :)

...zur Frage

VBA userform Passwort Abfrage?

Hallo, ich möchte in excel eine Passwortsbfrage machen mit userform.

In Tabelle 1 stehen in Spalte A2 bis A30 Mitarbeiter usernamen.

in Spalte B2 bis B30 die dazugehörigen Passwörter.

userform mit Textfeldern wurde bereits erstellt.

wie kann ich jetzt die Zellen vergleichen wenn ich auf Einloggen gehen z.b A2 und B2 und wenn übereinstimmend, dann userform schließen ansonsten msg Box falsch

...zur Frage

Word VBA bestimmte Seiten drucken / nicht drucken?

Moin zusammen,

folgendes Problem :

ich habe ein 8 Seiten langes Dokument. Seite 1 und 8 sollen immer gedruckt werden.

Bei den anderen Seiten ist es davon abhängig, welche ToggleButtons in der Userform vorab auf TRUE gestellt wurden.

Button1 = Seite 2, 3

Button2 = Seite 4, 5

Button3 = Seite 6, 7

Also auch zum Beipsiel:

Button1 + Button2 = True, Button3 = False --> Seite 2, 3, 4, 5 sollen gedruckt werden.

Da alle möglichen Fälle einzeln zu programmieren sehr unübersichtlich und aufwendig ist, wollte ich mal fragen, ob einer von euch eine einfacherer Lösung kennt.

Danke schonmal ^^

...zur Frage

VBA: Variablenwert aus Textbox in Zahl ausgeben?

Moin,

Ich möchte aus einer UserForm (Textbox) einen wert (numerisch) als Zahlenwert in eine Zelle ausgeben.

Mein Problem besteht darin, dass Excel den wert als Text erkennt...

Public gewicht As Single
'----
ActiveSheet.Cells(7 , 6).Value = gewicht

Hat jemand eine Idee, wie ich da eine Zahl, mit der ich in Excel selber rechnen kann, draus macht

...zur Frage

cmd/eingabeaufforderung: runas benutzer mit passwort?

Hallo Leute,

ich gebe das bei cmd ein

runas /user:"<benutzer2>" "C:\Users\benutzer2\AppData\Roaming\anwendung"

danach werde ich aufgefordert das Kennwort einzugeben, leider kann ich bis auf die ENTER taste nichts betätigen. (also keine Buchstaben, Zahlen und usw auf der Tatstatur)

meine nächste frage: wie erstelle ich eine Datei mit Hilfe von Word oder so, das ich diesen Vorgang automatisiere? (also runas mit passwort)

Danek :)

...zur Frage

Im laufenden VBA-Code eine Meldung anzeigen

Wie schafft man es, dem User mitzuteilen, das noch ein VBA-Code läuft.

Ich habe eine Kopier-Routine, die etwas länger dauert und beim Blattwechsel automatisch startet. Damit der User nicht abbricht, möchte ich eine Meldung ausgeben.

Schalte ich aber eine eigene Userform dafür, bleibt der Code beim UserForm.Show hängen und arbeitet nicht weiter.

Hat jemand Vorschläge?

Schon mal Dank vorab.

...zur Frage

VBA | UserForm öffnen, sobald Excel-Zelle (die eine Formel enthält) = 2?

Hallo,

Excel-VBA....

ich benötige Hilfe beim Thema UserForm öffnen und ständige Abfrage.

Ich habe eine Zelle mit einer Formel, der Wert, welcher raus kommt soll verglichen werden und bei z.b höher als 2 soll eine User Form geöffnet werden.

Kann mir da wer helfen? Ich bin komplett auf dem Holzweg..

Der Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$T$6" Then
If UCase(Target.Value) > 2 Then NewUserForm.Show
End If

End Sub

Devo

...zur Frage

Formularsteuerelemt Kontrollkästchen über VBA setzen?

Ich habe eine Liste und jede einzelne Komponente hat ein Kontrollkästchen.

Jetzt bin ich an einem Leitfaden dran, über den ich je nach dem welche Zahl in ein Input Dialog eingegeben wird verschiedene Kontrollkästchen aktivieren will. Jetzt heißt mein normales Kontrollkästchen aber "Kontrollkästchen 1".

Wie kann ich ein solches Kontrollkästchen über ein Makro ansprechen um es auf "TRUE" zu setzen? Geht das überhaupt?

...zur Frage

Python: Wie kann ich prüfen ob ein wort in einen string gleich ist ?

Hallo,

ich wollte in Python ein script erstellen wo ich einen input eingebe aber bei einem bestimmten input passiert etwas anderes.

meine frage ist jetzt wie machen ich das der input den ich eingebe ist passwort

mein script:

print ("enter your name")

x = input()

print (x)

...zur Frage

VBA Input-Eingabe in Zelle eintragen?

Guten Abend,

ich möchte gerne den Inhalt aus einer Inputbox in Zelle D28 schreiben, nur leider funktioniert es nicht.

Folgendes Makro: (sicherlich nicht schön geschrieben aber es bis auf die Zelle D28)

Sub erstellen()
   Dim NeuerTabellenName As String
   Dim TabellenName As Boolean
   Dim myInput As String
   Dim WsTabelle As Worksheet
   
   myInput = InputBox("Bitte geben Sie den Namen des neuen Monates an", "Monat anlegen")
   
   For Each WsTabelle In Worksheets
   If WsTabelle.Name = myInput Then
   TabellenName = True
   Exit For
   End If
   Next WsTabelle
   If TabellenName Then
   MsgBox ("Der Monat existiert bereits. Der Vorgang wurde abgebrochen. Bitte ueberpruefen Sie Ihre Eingabe.")
   Worksheets("Admin").Select
   Else
   NeuerTabellenName = myInput
   Worksheets("Muster").Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = NeuerTabellenName
   Worksheets("Admin").Range(D28).Value = myInput
   Worksheets("Admin").Select
   End If
End Sub

Der Fehler muss ja hier liegen:

Worksheets("Admin").Range(D28).Value = myInput

Über eine Lösung wäre ich sehr dankbar.

Gruß

...zur Frage

VBA UserForm KeyDown Sonderzeichen werden nicht erkannt?

Hallo, ich habe eine Frage zu meinem VBA Code. Und zwar sollen verschiedene Tastatureingaben verschiedene Funktionen triggern. Bei Zahlen, Buchstaben, Plus, Minus, "&"-Zeichen, "!"-Zeichen und einige andere Tasten gehen. "*"-Zeichen, Prozent, "(" und ")" bspw. gehen jedoch NICHT (als KeyCode wird 0 zurückgegeben). Hat jemand eine Ahnung woran das liegt?

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  handleKeyDown KeyCode, Shift
End Sub

Private Sub handleKeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Dim keyChar As String * 1
  keyChar = Chr(KeyCode)
  MsgBox (KeyCode)
  Select Case keyChar
  Case "0"
    numb0_Click
  Case "1"
    numb1_Click
  '.....
  Case Else
  End Select
  Select Case KeyCode
  Case "187"
    plus_Click
  '....
  Case Else 
  End Select
End Sub

Danke für alle Antworten,

Nicolas

...zur Frage

Excel VBA UserForm "Passwort ändern" funktioniert nicht?

Ich komme echt nicht weiter bei so einem einfachen Code! :(

Das Problem ist, dass die UserForm einmal funktioniert, aber beim zweiten Mal sagt er "Das Passwort ist nicht korrekt", obwohl es das eigentlich sein müsste. Per Direktbereich abgefragt ergibt sich dann immer, dass das Passwort auf "" steht. Findet jemand im Code den Fehler?

PS: "NeuesPasswort1" steht für die obere, "NeuesPasswort2" für die untere Reihe.

Option Explicit

Sub CheckBoxAltesPasswort_Click()
  If CheckBoxAltesPasswort.Value = True Then
    TextBoxAltesPasswort.PasswordChar = ""
    Else
      TextBoxAltesPasswort.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort1_Click()
  If CheckBoxNeuesPasswort1.Value = True Then
    TextBoxNeuesPasswort1.PasswordChar = ""
    Else
      TextBoxNeuesPasswort1.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort2_Click()
  If CheckBoxNeuesPasswort2.Value = True Then
    TextBoxNeuesPasswort2.PasswordChar = ""
    Else
      TextBoxNeuesPasswort2.PasswordChar = "*"
  End If
End Sub

Sub CommandButtonAbbrechen_Click()
  Me.Hide
End Sub

Sub CommandButtonSpeichern_Click()
  If TextBoxAltesPasswort.Value <> AltesPasswort Then
    MsgBox ("Das Passwort ist nicht korrekt.")
    Exit Sub
  End If
  If TextBoxNeuesPasswort1.Value <> TextBoxNeuesPasswort2.Value Then
    MsgBox ("Die Passwörter stimmen nicht überein.")
    Exit Sub
  End If
  If Len(TextBoxNeuesPasswort1.Value) < 5 Then
    MsgBox ("Bitte wählen Sie ein Passwort mit mindestens 5 Zeichen.")
    Exit Sub
  End If
  NeuesPasswort = TextBoxNeuesPasswort1.Value
  Passwort = NeuesPasswort
  Me.Hide
End Sub

Sub UserForm_Activate()
  AltesPasswort = Passwort
End Sub

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen