Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Login erstellen

Login erstellen
21.09.2006 08:33:09
Michels
MoinMoin,
wie kann ich eine Login-Abfrage erstellen?
In meiner Tabelle (tbl_berechtigung) stehen ab A5 sämtliche Benutzer in Zahlenform. Eine Spalte weiter das Passwort. Wie kann ich das jetzt geschickter Weise abfragen beim Start der Datei?
Danke für die Hilfe
Michels
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Login erstellen
22.09.2006 10:19:38
Xelleron
Hallo Michels,
Du könntest eine Userform erstellen, mit 2 Textboxen und 2 Button (Login & Abbrechen)
Dem Button Login ordnest Du folgenden Code hinzu:

Private Sub CommandButton1_Click()
Set frm1 = UserForm1
With frm1
Range("A5:A15").Select 'ggf. Zellen anpassen
Selection.Find(What:=.TextBox1.Text, _
After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
If TextBox2.Text = ActiveCell.Offset(0, 1).Text Then
'Dein Code was passieren soll
Else
MsgBox "Loginfehler", vbCritical
End If
End With
End Sub

Gruß Dennis
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Login-Abfrage in Excel erstellen


Schritt-für-Schritt-Anleitung

Um eine Login-Abfrage in Excel zu erstellen, kannst Du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Userform erstellen:

    • Öffne den VBA-Editor mit ALT + F11.
    • Klicke auf Einfügen > UserForm.
    • Füge zwei TextBoxen für den Benutzernamen und das Passwort hinzu.
    • Füge zwei Buttons hinzu: einen für "Login" und einen für "Abbrechen".
  2. Code hinzufügen:

    • Doppelklicke auf den Login-Button und füge diesen Code hinzu:
    Private Sub CommandButton1_Click()
       Set frm1 = UserForm1
       With frm1
           Range("A5:A15").Select 'ggf. Zellen anpassen
           Selection.Find(What:=.TextBox1.Text, _
           After:=ActiveCell, _
           LookIn:=xlFormulas, LookAt:=xlPart, _
           SearchOrder:=xlByRows, SearchDirection:=xlNext, _
           MatchCase:=False).Activate
           If TextBox2.Text = ActiveCell.Offset(0, 1).Text Then
               'Dein Code was passieren soll
           Else
               MsgBox "Loginfehler", vbCritical
           End If
       End With
    End Sub
  3. Userform beim Öffnen anzeigen:

    • Füge im ThisWorkbook-Modul diesen Code hinzu, um die Userform beim Öffnen der Datei anzuzeigen:
    Private Sub Workbook_Open()
       UserForm1.Show
    End Sub
  4. Datei speichern:

    • Speichere die Datei als Excel-Makro-fähige Arbeitsmappe (*.xlsm).

Häufige Fehler und Lösungen

  • Fehler: "Loginfehler" wird immer angezeigt:

    • Stelle sicher, dass die Benutzernamen und Passwörter in der Tabelle korrekt eingegeben sind und dass die Zellen, die Du abfragst, die richtigen Werte enthalten.
  • Fehler: Userform öffnet sich nicht:

    • Überprüfe, ob der Code im ThisWorkbook-Modul korrekt eingefügt wurde.
  • Leere Eingabefelder:

    • Füge eine Überprüfung hinzu, um sicherzustellen, dass die TextBoxen nicht leer sind, bevor die Abfrage durchgeführt wird.

Alternative Methoden

Falls Du eine einfachere Methode verwenden möchtest, um ein Excel-Login zu erstellen, kannst Du auch die Datenüberprüfung nutzen:

  1. Erstelle eine Dropdown-Liste für die Benutzernamen.
  2. Verwende die WENN-Funktion, um die Passwörter zu überprüfen.

Diese Methode ist weniger sicher, da die Passwörter sichtbar sind, eignet sich jedoch für einfache Anwendungen.


Praktische Beispiele

Hier ist ein Beispiel für eine einfache Login-Abfrage:

  • Angenommen, Du hast eine Tabelle mit Benutzern in Spalte A und Passwörtern in Spalte B, die in der Userform abgefragt werden.

Wenn Du die Userform nutzt und die Anmeldung erfolgreich ist, kannst Du zum Beispiel den Benutzer in einer Willkommensnachricht begrüßen:

MsgBox "Willkommen, " & TextBox1.Text, vbInformation

Tipps für Profis

  • Sicherheit erhöhen: Speichere Passwörter niemals im Klartext. Ziehe in Betracht, Hash-Methoden zu verwenden, um die Passwörter zu verschlüsseln.
  • Benutzerverwaltung: Erstelle eine separate Tabelle zur Verwaltung von Benutzern und Berechtigungen.
  • Fehlerprotokollierung: Implementiere ein Protokoll, das fehlgeschlagene Login-Versuche aufzeichnet.

FAQ: Häufige Fragen

1. Wie kann ich die Userform anpassen?
Du kannst die Userform im VBA-Editor bearbeiten und Elemente wie Farben, Schriftarten und Layout ändern.

2. Ist VBA notwendig für die Login-Abfrage?
Ja, um eine interaktive Login-Abfrage zu erstellen, benötigst Du VBA. Alternativen sind eingeschränkter in ihren Möglichkeiten.

3. Kann ich die Login-Abfrage auch in Excel Online verwenden?
Excel Online unterstützt kein VBA. Du müsstest eine andere Lösung finden, z.B. PowerApps für komplexere Anwendungen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige