Benutzerverwaltung
06.07.2022 00:01:16
tursiops
Ich möchte meine Benutzerverwaltung umgestalten und hoffe auf Unterstützung.
Irgendwie bin ich mächtig aus der Übung...
Hier der bisherige Code mit Anmerkungen.
Könnte mir zunächst jemand helfen nach der erfolgreichen Passwortabfrage das persönliche Makro abzurufen?
Private Sub CommandButtonX_Click()
Dim Zugangsdaten As Worksheet
Dim Benutzer As Range
Dim User As Range
Dim pass As String
Dim i As Byte
Set Zugangsdaten = Sheets("User") 'Visible-Eigenschaft = xlSheetVeryHidden
Set Benutzer = Application.Range("User!B4:B13")
Set User = Application.Range("Start!J4")
'Benutzername unter Register "User" Spalte B / User[User-ID] und das dazugehoerige Kennwort in Spalte C / User[Passwort]
If User.Value = "" Then
MsgBox "Benutzername darf nicht leer sein.", vbInformation, "Hinweis"
Exit Sub
End If
Set rngBenutzer = Zugangsdaten.Columns(2).Find(What:=User.Value, lookat:=xlWhole)
If rngBenutzer Is Nothing Then
MsgBox "Benutzername nicht gefunden.", vbInformation, "Hinweis"
Exit Sub
End If
'PASSWORTABFRAGE UND LOGIN
'FERTIG 1. Die Passwortabfrage sollte eine temporäre InputBox erfolgen
'2. Makro ausführen - das persönliche Logion-Makro (Name) steht neben dem Benutzer unter Register User in Spalte D / User[Makro]
'3. Ein Counter soll bei falschen Passworteingaben die Anzahl der Eingabemöglichkeiten begrenzen
For i = 1 To 3
pass = InputBox("Passwort eingeben")
On Error Resume Next
If rngBenutzer.Offset(0, 1).Text pass Then
MsgBox "Das Kennwort ist nicht korrekt.", vbInformation, "Hinweis"
Exit Sub
End If
On Error GoTo 0
If (rngBenutzer.Offset(0, 1).Text = pass) Then ' Anzeige