Office: Passwortabfrage

Hallo,

ich möchte eine Passwortabfrage erstellen, wo die Passwörter aus dem Tabellenblatt "Passwörter" abgefragt werden.

Z.B.
Pers.1 = Apfel
Pers.2= Birne
Pers.3=Banane

Diese 3 Passwörter sollen dann den Zugang zum Bereich "XXX" ermöglichen.

Bisher habe ich das nur mit einem Passwort gemacht, welches direkt in den VBA Editor geschrieben wurde.

Dann möchte ich noch eine Userform erzeugen, worüber man die Passwörter ändern kann. Also zuerst altes Passwort eingeben, dann 2 mal neues Passwort eingeben. So etwas habe ich noch nie gemacht und stoße da an meine Grenzen. Wer kann mir helfen?

Vielen Dank schonmal im voraus

Gruß Daniel

:)

 

Hallo!

Zur ersten Frage

Code:

Zur 2. Frage:

Dafür müsste die Kennwörter extern gespeichert werden (INI-File, Registry, oder DocumentProperties). Ist aber noch unsicherer als ohnehin schon.

Gruß, René

 

Danke,

so in der Art habe ich das auch gemacht. Die Kennwörter sind in einem extra Sheet gespeichert. daraus soll sich die Useform die Passwörter selber ziehen. Nicht im Code hinterlegt.

 

Dann setze statt der Kennwörter den Zellbezug.

Code:

 

Hallo,

Geht es Dir auch nur entfernt um Sicherheit? Dann gibt es wohl keinen NOCH unsichereren Platz als auf einem Tabellenblatt.

Grüße
EarlFred

 

HAllo

Das ist clever.

Da muss der Bösewicht nicht erst "mühsam" im Code suchen sondern kann sich direkt in der Tabelle bedienen. ;-)

ransi

 

Wie soll ich das denn sonst machen? Dann müsste sich der Code bei jedem ändern des Passwortes ändern. Oder??? Wenn das geht. WIE???

 

Hallo,

sag doch erstmal, wie "sicher" Deine Mappe werden soll.
Auch wenn Dir hier keiner Tipps zum Umgehen der einzelnen "Sicherungsmethoden" geben wird, musst Du eines wissen: Wenn Du Sicherheit für Dein Daten willst, ist Excel schlichtweg der falsche Ort.

Grüße
EarlFred

 

Also, ich soll eine Mappe erstellen, in die bestimmte Werte eingegeben werden sollen. Die Passwörter sind die für den "Adminbereich". Da hier glaube ich niemand versuchen wird die Datei zu knacken, dachte ich mir an die Lösung wie oben beschrieben. Dass dies nicht so sicher ist, ist mir klar. Nur eine andere Lösung fällt mir nicht ein. Die Daten werden nunmal in Excel ausgewertet und archiviert. Nur da die alte Liste sehr veraltet ist und sich niemand wirklich mehr damit auskennt, soll ich die neu machen und pflegen. Desweiteren sollen nur meine Chefs vollen Zugriff darauf haben. Deswegen auch die versch. Paswörter.

 

Viell. kann mir auch jemand bei dem Codefragment helfen...

Private Sub cmdok_Click()

If MsgBox("Wollen Sie die Daten übernehmen?", vbQuestion + vbYesNo, "Frage") = vbYes Then

Range("A65536").End(xlUp).Offset(1, 0).Select
End If

If TextBox1.Text = "" Then
MsgBox "Sie müssen eine Schadensmeldung eingeben!", vbOKOnly, vbCr, "HINWEIS"

ElseIf TextBox2.Text = "" Then
MsgBox "Sie müssen ihren Namen eingeben!", vbOKOnly, vbCr, "HINWEIS"
End If


haut nicht hin...

 

Select Case strPW

With Thisworkbook.Sheets("Tabelle4")

Case .Range("A1").Value, .Range("A2").Value, .Range("A3").Value
Sheets("Tabelle1").Visible = True

Case Else
MsgBox "Kennwort ungültig", vbExclamation + vbOkOnly, "Falsches Kennwort"

End With

End Select


Funktioniert nicht.

Fehler beim Kompilieren. Anweisungen und Zeilenmarken zwischen Select Case und ersten Vorkommen von Case nicht zulässig.

 

du solltest das End With auch nach End Select schreiben.

 

Ein wenig anstrengen solltest Du Dich schon (selbst ausprobieren). *wink.gif*

 

Das hat er falsch von mir übernommen. *wink.gif*

 

Hallo!
Wenn Du die Admin Passwörter in eine Datei speichern sollst, bist Du doch der Admin oder einer aus der Gruppe, oder?
Wer Dir den Auftrag gegeben hat, .....

Sicher Deine Excel Datei so gewaltig wie Du kannst und dann öffne die Datei mit Open Office oder Libre Office und staune, was so alles geht.

Diese beiden Programmpakete sind noch nicht einmal Hackertools.