Benutzername und Kennwort

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Benutzername und Kennwort
von: Uli
Geschrieben am: 13.08.2015 12:28:17

Hallo,
ich habe eine Excel-Datei, die nur von bestimmten Benutzern geöffnet werden darf. Dazu habe ich eine Userform vorgeschaltet, die nach Benutzername und Kennwort fragt.
Wie kann ich in einer Sub Benutzernamen und Kennwörter hinterlegen, um sie in der Userform abzugleichen? Kann mir da jemand helfen?
Mein Code bisher:

Private Sub CommandButton1_Click()
    passwort = TextBox1.Value
    If Me.TextBox1 <> "XYZ" Then
        MsgBox "Falsches Kennwort"
        Me.TextBox2 = ""
        zähler = zähler + 1
        Me.TextBox2.SetFocus
            If zähler = 3 Then
                MsgBox "3x falsch eingegeben", vbExclamation
                ThisWorkbook.Close Savechanges:=False
            End If
        Exit Sub
    Else
        frmStart.Show
        Unload Me
    End If
End Sub
lg.
Uli

Bild

Betrifft: AW: Benutzername und Kennwort
von: Bernd
Geschrieben am: 13.08.2015 12:33:57
Hi,
schau mal ob Du damit was anfangen kannst (ist nicht von mir):
https://www.herber.de/bbs/user/99533.xlsm
mfg Bernd

Bild

Betrifft: AW: Benutzername und Kennwort
von: Uli
Geschrieben am: 13.08.2015 14:24:09
Ja, ich hab mir das passende rausgefischt.
Danke Vielmals

Bild

Betrifft: AW: Benutzername und Kennwort
von: Rudi Maintaire
Geschrieben am: 13.08.2015 13:52:11
Hallo,
über Sinn und Unsinn derartiger Maßnahmen wurde hier schon zur Genüge diskutiert.
Als Anregung:

Private Sub CommandButton1_Click()
  Dim strUsers As String, strPW As String
  Dim vUser, vPW
  Static intErr As Integer
  strUsers = "user1#user2#user3"
  strPW = "pw1#pw2#pw3"
  vUser = Application.Match(TextBox1, Split(strUsers, "#"), 0)
  vPW = Application.Match(TextBox2, Split(strPW, "#"), 0)
  If IsError(vUser) Then
    MsgBox "Benutzer " & TextBox1 & " gibt es nicht."
    intErr = intErr + 1
    TextBox1 = ""
    TextBox1.SetFocus
    GoTo ERREXIT
  End If
  If vUser <> vPW Then
    MsgBox "Passwort falsch"
    TextBox2 = ""
    TextBox2.SetFocus
    intErr = intErr + 1
    GoTo ERREXIT
  End If
  frmStart.Show
  Unload Me
ERREXIT:
  If intErr = 3 Then
      MsgBox "3x falsch eingegeben", vbExclamation
      ThisWorkbook.Close Savechanges:=False
  End If
End Sub

Gruß
Rudi

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Benutzername und Kennwort"