Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
124to128
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
124to128
124to128
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

maximal 3 versuche

maximal 3 versuche
09.06.2002 19: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
Anzeige
Re: maximal 3 versuche
09.06.2002 20:07:37
WernerB.
Hallo Max,

teste mal dieses Makro:

Viel Erfolg wünscht
WernerB.

Re: maximal 3 versuche
09.06.2002 21: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

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige