Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Passwortabfrage zum Öffnen eines Blattes

Passwortabfrage zum Öffnen eines Blattes
Ina
Hallo Leute,
habe hier eine Passwortabfrage. Wie kann man die umschreiben, das es mit ca. 10-20 bestimmten Passwörten möglich ist.
Private Sub CommandButton2_Click()
Dim PW
Application.ScreenUpdating = False
Worksheets("Eingabe").Visible = xlVeryHidden
PW = InputBox("Bitte das Passwort eingeben")
If PW = "123" Then
Worksheets("Eingabe").Visible = True
End If
Application.ScreenUpdating = True
End Sub

Grüße Ina
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Passwortabfrage zum Öffnen eines Blattes
29.01.2011 19:58:13
Tino
Hallo,
vielleicht so.
In dem Array ArrayPass Deine Kennwörter entsprechend eintragen.
Private Sub CommandButton2_Click()
Dim PW$
Dim ArrayPass, varIndex
ArrayPass = Array("Passwort1", "Passwort2", "usw...")
Application.ScreenUpdating = False
Worksheets("Eingabe").Visible = xlVeryHidden
PW = InputBox("Bitte das Passwort eingeben")
If StrPtr(PW) > 0 Then
varIndex = Application.Match(PW, ArrayPass, 0)
If IsNumeric(varIndex) Then
If ArrayPass(varIndex) = PW Then
Worksheets("Eingabe").Visible = True
End If
End If
End If
Application.ScreenUpdating = True
End Sub
Gruß Tino
Anzeige
AW: Passwortabfrage zum Öffnen eines Blattes
29.01.2011 20:14:53
Ina
danke für die schnelle Antwort,
aber es geht leider nicht. Das Fenster zur PW Abfrage kommt und nach eingabe öffnet sich das versteckte Blatt nicht.
Grüße Ina
weil ArrayPass<>PW ist ...
29.01.2011 21:18:46
Matthias
Hallo Ina
Probier mal:
If ArrayPass(varIndex - 1) = PW Then
Gruß Matthias
Anzeige
der Index muss noch angepasst werden...
29.01.2011 21:20:21
Tino
Hallo,
mach aus der Zeile
If ArrayPass(varIndex) = PW Then
diese
If ArrayPass(varIndex - 1) = PW Then
Match fängt bei dem Array mit 1 an, der erste ist aber 0 daher -1
Gruß Tino
AW: Danke das funktioniert
29.01.2011 21:40:31
Ina
vielen Dank an euch,
jetzt funktioniert es.
Grüße Ina
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige