Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
436to440
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
436to440
436to440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Passwort 3x falsch dann beenden

Passwort 3x falsch dann beenden
02.06.2004 16:08:24
Michael
Hi @ all,
ich habe eine Arbeitsmappe die ich gerne Passwortschützen möchte. Es soll sich eine Eingabebox öffnen und nach 3 maliger Falscheingabe soll Excel geschlossen werden.
Ich habe schon in der Rechereche gesucht jedoch nichts richtiges gefunden. Da ich kein Held der VBA Programmierung bin frage ich lieber die die es können.
Danke im vorraus
Gruss Michael

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Passwort 3x falsch dann beenden
02.06.2004 16:14:45
Matthias
Hallo Michael,
ein Codeschnipsel aus meinem kürzlich erstellten Programm:
Option Explicit
Public Versuche As Integer
Const MaxVersuche = 3
Private Sub OKButton_Click()
Dim Rest As Integer
Dim pl As String
Versuche = Versuche + 1
Rest = MaxVersuche - Versuche
If KennwortBox = Passwort(BenutzerBox) Then
If LeseEintrag(BenutzerBox, "KontoAktiv") <> "j" Then
MsgBox "Ihr Konto ist deaktiviert. Die Anwendung wird beendet.", vbCritical, "Konto-Einschränkung"
Me.Hide
ThisWorkbook.Saved = True
ThisWorkbook.Close
Else
Application.EnableEvents = False
With Sheets("Benutzerrechte")
.Range("AW1").Value = BenutzerBox
End With
Application.EnableEvents = True
If LeseEintrag(NTBenutzer, "KWMuss") = "j" Then
MsgBox "Das Kennwort muss geändert werden.", , Benutzername
UFKennwortÄndern.Show
End If
Unload Me
End If
Else
'falsche Kennwort
If Rest = 0 Then
MsgBox "Ungültiges Kennwort. Die Anwendung wird beendet."
Me.Hide
ThisWorkbook.Saved = True
ThisWorkbook.Close
Else
If KennwortBox = "" Then
Versuche = Versuche - 1
Rest = MaxVersuche - Versuche
End If
If Rest = 1 Then pl = "" Else pl = "e"
MsgBox "Benutzername und Kennwort stimmen nicht überein!" & vbLf & vbLf & _
"                Noch " & Rest & " Versuch" & pl, vbCritical, "Fehler"
With KennwortBox
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End If
End Sub
kann man nicht 1:1 übernehmen wg. weiteren Subs, die aufgerufen werden. Ist aber leicht anzupassen.
Gruß Matthias
Anzeige
AW: Ergänzung...
02.06.2004 16:16:42
Matthias
...zum Initialisieren der Public-Variable:

Private Sub UserForm_Initialize()
Versuche = 0
End Sub

Gruß Matthias
AW: Passwort 3x falsch dann beenden
02.06.2004 16:35:10
Michael
Danke Euch, dann fang ich mal an zu basteln
Gruss Michael

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige