Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

maximal 3 versuche



Excel-Version: 10.0 (Office XP)

Betrifft: maximal 3 versuche
von: Max
Geschrieben am: 09.06.2002 - 19:45:08

Hallo

ch habe eine Passortabfrage in VBA jetzt würde ich gerne wissen wi es geht das man nur 3 versuche hat das Passwort einzugeben


  

Re: maximal 3 versuche
von: WernerB.
Geschrieben am: 09.06.2002 - 20:07:37

Hallo Max,

teste mal dieses Makro:


Option Explicit
Sub PwAbfrage()
Dim PaWo As String
Dim As Byte
    For i = 1 To 3
      PaWo = InputBox("Passwort eingeben:", "Passwort-Eingabe Nr. " & i)
      If PaWo = "max" Then Exit For
    Next i
    If PaWo <> "max" Then
      MsgBox "Passwort drei mal falsch - Makroabbruch !", vbExclamation, _
       "Hinweis für " & Application.UserName & ":"
      Exit Sub
    End If
End Sub

Viel Erfolg wünscht
WernerB.
  

Re: maximal 3 versuche
von: Richter, Andreas
Geschrieben am: 09.06.2002 - 21:13:08

'Versuch's mal so:
Option Explicit
Private Sub SAdmin1Show()
'Ein Blatt namens "Admin1" muss existieren!
'Das versteckte Blatt "Admin1" hat in Zelle(2,2)
' das PassWord stehen,
'und in Zelle(3,2) PassWord Verwenden y/n
Dim s1 As String, i As Integer
i = 0
On Error Resume Next
GRepeat:
i = i + 1
If Worksheets("Admin1").Cells(3, 2) <> "y" Then GoTo GShow
s1 = InputBox("Passwort:", i & ".Versuch (max.3!)")
If s1 = Worksheets("Admin1").Cells(2, 2) Then GoTo GShow
If s1 = "" Then Exit Sub
If i < 3 Then GoTo GRepeat
MsgBox "Zutritt Verweigert", vbCritical, "Falsches Passwort !"
Exit Sub
GShow:
MsgBox "Zutritt Genehmigt", vbInformation, ""
Worksheets("Admin1").Visible = True
Worksheets("Admin1").Select
Cells(1, 1).Select
End Sub
Private Sub SAdmin1Hide()
On Error Resume Next
Worksheets("Admin1").Visible = xlVeryHidden
On Error GoTo 0
End Sub
'Gefahr: Es darf kein Leeres PassWord eingetragen sein,
'inputbox liefert auch bei Abbruch-Button einen LeerString.
'Mfg ARi

 

Beiträge aus den Excel-Beispielen zum Thema "maximal 3 versuche"