UserLogin
21.09.2007 22:30:45
Holger
ich habe MAL wieder ein Problem.mitfolgendem Code habe ich eine Anmeldemaske, mit Username und Passwort, im Prgramm selber kann ich die User anlegen, hier ordne ich dem User auch einen Bereich zu, (z.B. WB1), in dem Bereich wo der User. Im Programm gibt es och Klienten die den einzelnen Bereichen zugeordnet sind. jetzt Meine egentliche Frage besteht die möglichkeit, wenn sich ein User einlogt, nur die Klienten seines Bereiches angezeigt zu bekommen. DenKlienten ist auch der Bereich in einer Tabelle zugeordnet.
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Workbooks.Open Filename:=Sheets("Daten").Range("J2").Text
UName = TextBox1.Text
PWort = TextBox2.Text
If UName = "" Then
MsgBox "Bitte Username eingebe"
GoTo weiter
End If
If PWort = "" Then
MsgBox "Bitte Passwort eingeben"
GoTo weiter
End If
Set XFind = Sheets("PW").Columns(1).Find(UName)
If Not XFind Is Nothing Then
If Sheets("PW").Cells(XFind.Row, 3) = PWort Then
Login
ActiveWorkbook.Close
Unload Me
Application.ScreenUpdating = True
Exit Sub
Else
MsgBox "Falsches Passwort"
Worksheets("Übersicht").Activate
End If
Else
MsgBox "Falscher User-Name"
End If
weiter:
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub
Mit einem "Login" Code halte ich fest wer sich wann angemeldet hat, vieleicht ist darüber ja was zu machen? Hier der Code
Sub Login()
Set logNam = Sheets("Login").Rows(1).Find(UName)
If Not logNam Is Nothing Then
aRow = Sheets("Login").Cells(65536, logNam.Column).End(xlUp).Row
Sheets("Login").Cells(aRow + 1, logNam.Column) = Now
'Sheets("Daten").Cells(3, 8) = UName
Else
aCol = Sheets("Login").Cells(1, Columns.Count).End(xlToLeft).Column
Sheets("Login").Cells(1, aCol + 1) = UName
Sheets("Login").Cells(2, aCol + 1) = Now
End If
ActiveWorkbook.Save
End Sub
Gruß und Dank
Holger