maximal 3 versuche

Forumthread: maximal 3 versuche
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: maximal 3 versuche

maximal 3 versuche

09.06.2002 21:45:08

Max

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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: maximal 3 versuche

09.06.2002 22:07:37

WernerB.
Re: maximal 3 versuche

09.06.2002 23:13:08

Richter, Andreas

Re: maximal 3 versuche

09.06.2002 22:07:37

WernerB.

Hallo Max,

teste mal dieses Makro:

Viel Erfolg wünscht
WernerB.

Re: maximal 3 versuche

09.06.2002 23:13:08

Richter, Andreas

'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

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!