Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1196to1200
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
1196to1200
1196to1200
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige

194 Forumthreads zu ähnlichen Themen

EXCEL Datei mit Passwort starten
hindenberger@gmx.de

Hallo,
kann ich eine EXCEL- Liste mit einem Passwort versehen, so dass ich sie nur mit korrektem Passwort starten kann?
Danke.
Gruß,
Patric
30.11.2008 12:22:00
Thread-ID: 1029005
5 Beiträge
Anzeige
Datei mit ungültigem Blattnamen per Makro öffnen
sile1234

Hallo liebe Herber Gemeinde,
ich habe eine *.xls Datei die von einem Programm exportiert wird. Diese möchte ich gerne mit Excel weiterbearbeiten und mit einem Makro dort diverse Informationen herausziehen. Leider wird der Blattname mit Zeichen exportiert mit denen Excel 2003 nichts anfangen...
07.08.2009 14:14:42
Thread-ID: 1094255
4 Beiträge
makro - datei mit variabler Datum öffnen
meixner

Hallo zusammen,
brauche ein Makro, daß eine Datei automatisch öffnet, deren Datum sich quartalsweise ändert!
Datei = "I:\99\8801\FM\IA files \Fondsbestand_20090907"
Datei heißt im Dez. aber Fondsbestand_20091207. Kann ich das Datum irgendwie variabel anlegen?
mit Datei = "I:\99\...
03.10.2009 21:02:11
Thread-ID: 1107038
2 Beiträge
Anzeige
Mit Hyperlink passwordgeschützte Datei öffnen
Constantin

Hallo,
in einem "zentralen" Verzeichnis befindet sich eine größere Anzahl von Exceldateien (ca.100), die alle password-geschützt sind (unterschiedliche Passwörter) und die über Hyperlink aufgerufen werden können. Diese Hyperlinks stehen in einer eigenständigen Mappe, in Tabelle1. Jeder Aufr...
13.02.2010 12:25:41
Thread-ID: 1138236
3 Beiträge
Datei Öffnen mit Vorauswahl der Datei
Stefan

Hallo zusammen,
ich habe verschiedene Dokumente, die alle mit der gleichen Ordnungsnummer beginnen und als Dateinamen dann verschiendene Endungen haben. Nun möchte ich gern mit der Dialogbox Fileopen z.B. alle Dokumente mit der Ordnungsnummer 130 anzeigen lassen. Ich habe das mit der getope...
07.04.2010 15:00:25
Thread-ID: 1150494
3 Beiträge
'Datei öffnen' - Dialog mit Filter
Stefan

Guten Morgen zusammen,
ist zwar noch früh, aber ich frage schon mal in die Runde, ob mir jemand helfen kann.
Ich habe verschiedene Dateien (auch Word, bekomme ich aber mit CreateObject hin), die alle zum Anfang des Dateinamens eine Ordnungszahl (z.B. 130) haben. Nun möchte ich den 'Öffn...
08.04.2010 08:29:26
Thread-ID: 1150564
13 Beiträge
xls-Datei 2003 mit Excel 2010 öffnen
Peter

Guten Abend
Ich habe eine Excel-Datei, die mit Excel 2003 erstellt wurde und Makros enthält. Ich möchte diese neu unter Excel 2010 bearbeiten.
Obwohl ich den Speicherort im Vertrauenscenter als vertrauenswürdiger Ort definiert habe, klappt das nicht.
Ich öffne die Datei mit 2010 und...
08.12.2010 22:55:29
Thread-ID: 1190694
7 Beiträge
Verküpfungen aus Datei mit Passwort aktualisieren
Harald

Hallo zusammen,
in meiner Firma gibt es ein Laufwerk, auf das alle Mitarbeiter Zugriff haben.
Hier befindet sich auch eine Passwort- geschützte Datei auf die nur die Büroleiter zugreifen können, weil denen das Passwort bekannt ist.
In einer zweiten Datei sollen nun nur bestimmte Inf...
14.12.2010 10:58:53
Thread-ID: 1190718
2 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
9
3
1
5
2
2
12
6
1
5
8
3
7
8
7
2
55
2
6
4
2
6
1
8