Anzeige
Archiv - Navigation
1280to1284
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
Inhaltsverzeichnis

Zweite Chance für Passwortabfrage

Zweite Chance für Passwortabfrage
29.09.2012 19:12:23
Dietmar
Nochmals hallo in die Runde,
wie kann ich folgenden Code anpassen, so dass der User weitere Chancen bekommt (sagen wir 3 Versuche), um das richtige PW einzutragen. Erst danach soll die Datei geschlossen werden.
Private Sub Workbook_Open()
Dim pw As String
Sheets("Tabelle2").Select
If Sheets("Tabelle1").Range("B1").Value  "" Then
pw = InputBox(prompt:="Bitte geben Sie Ihr persönliches Passwort ein!", Title:="Passwort- _
Abfrage")
If pw  CStr(Sheets("Tabelle1").Range("A1")) And pw  CStr(Sheets("Tabelle1").Range(" _
B1")) Then
ThisWorkbook.Close savechanges:=False
End If
End If
End Sub
Vielen Dank vorab!
Dietmar aus Aachen

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

Betreff
Datum
Anwender
Anzeige
AW: Zweite Chance für Passwortabfrage
29.09.2012 19:28:21
Josef

Hallo Dietmar,
vielleicht so.
Private Sub Workbook_Open()
  Dim pw As String
  Dim intTrys As Integer
  
  Sheets("Tabelle2").Select
  
  If Sheets("Tabelle1").Range("B1").Value <> "" Then
    Do
      pw = InputBox(prompt:="Bitte geben Sie Ihr persönliches Passwort ein!", Title:="Passwort-Abfrage")
      If pw <> CStr(Sheets("Tabelle1").Range("A1")) And pw <> CStr(Sheets("Tabelle1").Range("B1")) Then
        MsgBox "Falsches Passwort!" & vbLf & vbLf & _
          IIf(intTrys < 2, "(Noch " & 2 - intTrys & " Versuch(e))", "Vorgang wird abgebrochen!"), _
          vbExclamation, "Hineis"
        intTrys = intTrys + 1
      Else
        Exit Sub
      End If
    Loop While intTrys < 3
  Else
    Exit Sub
  End If
  
  Me.Close savechanges:=False
End Sub



« Gruß Sepp »

Anzeige
Super!!!
29.09.2012 20:30:20
Dietmar
Hallo Sepp,
wieder mal: ganz lieben Dank!
Funktioniert klasse!
Viele Grüße
Dietmar

es macht so eh keinen Sinn !
29.09.2012 19:33:57
Matthias
Hallo Dietmar
... denn wenn Du einfach die Inputbox mit ENTER bestätigst(ohne Eingabe!), passiert ja sowieso nix.
Gruß Matthias

grrr merke ich jetzt erst
29.09.2012 20:34:03
Dietmar
Hallo Matthias,
vielen Dank!
Da ich immer nur mit Einträgen rumprobiert hatte, war mir das gar nicht aufgefallen.
Viele Grüße
Dietmar

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige