Datum

Titel

24.04.2024 12:38:40

Formeländerung durch Wechsel von Excel 2021 auf 2019

24.04.2024 12:31:18

Excel - Sverweis mit Wenn-Abfrage kombinieren

24.04.2024 12:16:26

Name von aktuellem VBA-Modul ausgeben

24.04.2024 12:07:15

Werte einer Liste vergleichen und markieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

148to152

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Mehrere Kennwörter möglich

Forumthread: Mehrere Kennwörter möglich
6 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
Top 100 Forumthreads

22.08.2002 13:51:50

Hallo,

eine Aufgabe, die ich ohne Eure Hilfe wahrscheinlich nicht lösen kann.

Folgender Ablauf soll passieren:

1) Öffnen der Datei

2) Nichts zu sehen (Bildschirm leer) außer einer Eingabemaske

3) Kennwort eingeben --> Dieses Kennwort ist in den Spalten L4:L150 hinterlegt --> Es soll mehrere Kennwörter geben

4) Wenn ein Kennwort, daß nicht unter L4:L150 hinterlegt ist, eingegeben wird, soll sich die Datei sofort schließen

5) Ist das Kennwort vorhanden, ganz normal öffnen.

Gibt es hierzu einen Lösungsansatz??

...
Kennwortmaske.Show
....

Bin für jeden Ansatz dankbar.

Gruß

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Mehrere Kennwörter-Ansatz

22.08.2002 14:00:06

andreas e
Re: Mehrere Kennwörter-Ansatz

22.08.2002 14:06:23

TF
Re: Mehrere Kennwörter-Ansatz

22.08.2002 14:09:11

andreas e
Re: Mehrere Kennwörter-Ansatz

22.08.2002 14:12:07

TF
Re: Mehrere Kennwörter-Ansatz

22.08.2002 14:25:17

andreas e
musterdatei ist unterwegs 0T

22.08.2002 16:02:30

andreas e

Re: Mehrere Kennwörter-Ansatz

22.08.2002 14:00:06

andreas e

Sub test()
Dim bereich As Range
Dim r As Range
Set bereich = Range("a1:a8")
'Dein bereich Passw
pw = InputBox("paw")
For Each r In bereich
If r = pw Then
MsgBox ("paw")
Sheets("Tabelle1").Activate
End If
Next r
Exit Sub
End Sub

prüft einen bereich auf das PW ab

gruß
andreas e
http://www.skripteundaufgaben.de viele kostenlose Downloads und Links zu EXCEL und mehr

Re: Mehrere Kennwörter-Ansatz

22.08.2002 14:06:23

Hi Andreas,

danke, doch ich glaube ich habe den Code falsch rein kopiert (in DieseArbeitsmappe). Fehlermeldung pw nicht definiert... Was ist falsch?

Private Sub Workbook_open()
Dim bereich As Range
Dim r As Range
Set bereich = Range("a1:a8")
'Dein bereich Passw
pw = InputBox("paw")
For Each r In bereich
If r = pw Then
MsgBox ("paw")
Sheets("Tabelle1").Activate
End If
Next r
Exit Sub
End Sub

Re: Mehrere Kennwörter-Ansatz

22.08.2002 14:09:11

andreas e

hey TF,
ich habe das ganze mit ner inputb0x gemacht !
du musst das anpassen und entsprechend pw über zB textb0x übergeben aus der userfrm
gruß
andreas e

Re: Mehrere Kennwörter-Ansatz

22.08.2002 14:12:07

Hi Andreas,

bin in VBA noch nicht ganz so fit. Ich weiß zwar was Du meinst, tue mir aber beim Umsetzen etwas schwer. Kannst Du mir ne BSp-Datei mailen? Wäre super.

Dann kann ich sie mir so anpassen wie es brauche.

Danke vorab.

Gruß

TF (Tom)

Re: Mehrere Kennwörter-Ansatz

22.08.2002 14:25:17

andreas e

'Ziehe eine UserForm mit einer TextBox und 1 CommandButton
'auf - der cb entäIt den unteren code
'die eigenschaften der Textb0x setzte bei Passw0rdchar auf *

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Private Sub CommandButton1_Click()
Dim bereich As Range
Dim r As Range
Set bereich = Range("a1:a8")
'Dein bereich Passw
pw = TextBox1.Value
For Each r In bereich
If r = pw Then
MsgBox ("paw")
Sheets("Tabelle1").Activate
End If
Next r
Exit Sub
End Sub

gruß
andreas e

wenn es nicht kIappt meIde dich nchmaÍ

musterdatei ist unterwegs 0T

22.08.2002 16:02:30

andreas e