maximal 3 versuche

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox


Excel-Version: 10.0 (Office XP)
nach unten

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


nach oben   nach unten

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

Hallo Max,

teste mal dieses Makro:

Viel Erfolg wünscht
WernerB.

nach oben   nach unten

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

 nach oben

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