Namen abfragen über UserForm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Torge,
durch Deine Datei steige ich leider nicht durch. Aber vielleicht hilft Dir mein Beispiel ein wenig weiter. Werde deshalb diesen Beitrag auch weiter offen lassen.
Folgendes läuft in der datei ab:
Zunächst wird der Username abgefragt. Voreingestellt sind 2 Personen, "Torge" und "Hans". Dabei bin ich davon ausgegangen, dass Dein UserName "Torge" ist - sonst bitte im Code ändern. Je nachdem, wer von beiden die Datei gerade auf seinem PC öffnet, muss sein Passwort eingeben (hier jeweils "Torge" oder "Hans" und zusätzlich zur für alle einsehbaren Tabelle wird die Extratabelle mit Namen "Hans" oder "Torge" eingeblendet. Sollte die Abfrage des Usernamens ergeben, dass die Person nicht berechtigt ist, erscheint ein entsprechender Hinweis und die Datei wird geschlossen. Das gleich passiert bei falschem Passwort.
https://www.herber.de/bbs/user/34443.xls
Gruß
Hans

Hallo
recht einfach. es reicht, wenn man den Code für das Ereignis "OK-Button" einwenig ergänzt:


Private Sub cmdOK_Click()
Dim User(2) As String      'Wenn mehr als 2 Benutzer zugelassen werden sollen
Dim Password(2) As String  'her entsprechend höher dimensionieren
dim i as long              'und in der For-Schleife der Zugangsprüfung berücksichtigen
Dim Zugang As Boolean
User(1) = "User1" 'hier den 1. Benutzernamen festlegen
User(2) = "User2" 'hier den 2. Benutzernamen festlegen
Password(1) = "PW1" ' Hier Password für Benutzer 1 festlegen
Password(2) = "PW2" ' Hier Password für Benutzer 2 festlegen
'----Zugangsprüfung
Zugang = False
For i = 1 to 2
If Me.txtInput.Text = Password(i) And Me.TextBox1.Value = User(i) Then Zugang = True
Next
If Zugang Then
'------ab hier ist der Code wieder unverändert----------------
m_blnCancel = False   'Status 'Abbrechen' = False setzen
Me.Hide               'UserForm ausblenden
Else
'Wenn ungültiges Passwort
'Inhalt der TextBox löschen und Fokus setzen
MsgBox "Ungültiges Passwort!", vbExclamation, Me.Caption
With Me.txtInput
.Text = ""
.SetFocus
End With
End If
End Sub

Gruß, Daniel

Sub Demo_GetPassword() Const cMsgTitle As String = "VB-fun-Demo - Passwortabfrage" Dim strPW As String Dim blnRetVal As Boolean strPW = "Passwort" 'Funktion aufrufen blnRetVal = GetPassword("Bitte Passwort eingeben:", strPW, cMsgTitle) 'Rückgabe auswerten If blnRetVal = True Then MsgBox "Juhuuuu, die Passwort-Eingabe war richtig!", _ vbInformation, cMsgTitle Else 'Lediglich zur Demo, der User weiß ja, dass er den Dialog 'abgebrochen hat;-) MsgBox "Die Eingabe wurde abgebrochen!", _ vbInformation, cMsgTitle End If End Sub

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Namen abfragen über UserForm

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread