Dateizugriff über NT Kennung

Hallo Leute,
habe gestern die halbe nacht durchgegoogelt aber leider nichts passendes (es gab schon Ansätze die mich aber nicht recht weiter gebracht haben) gefunden.
Vielleicht kann mir jemand unter die Arme greifen.
Ich habe eine Datei welche für einen bestimmten Personenkreis ständig und für den rest nur zeitlich begrenzt einzusehen ist. Die geschieht mit einer Userform welche eine Passwortabfrage stellt.
Nun ist es halt so wie wahrscheinlich überall - irgendwann schweigt sich das Passwort durch. Da einig nicht ihre Klappe halten können muß so jeden Monat das passwort geändert werden. Meine Idee ist halt nun dies mit der NT-Kennung abzufragen. Glaube nicht dass einer so blöd ist und diese freigeben wird.
Es kommt noch ein Detail hinzu. Natürlich soll der Personenkreis den ich festlege auch nur Zugriff haben und nicht alle mit ner Kennung. Entweder über eine Liste in einem Tabellenblatt oder mit "if" und "then".
Keine Ahnung wie ich es anstellen könnte.
Das folgende Makro beschreibt die jetzige Einwahlprozedur. Wer das richtige Passwort weiß und in die Textbox einfügt bekommt über den Ok Button den uneingeschränkten Zugriff. Alle anderen versuchen über den AbbrechenButton auf die Datei zu gelangen welche wie gesagt unter weiterem Code "nur lese" den Zugang Zeitlich regelt.
Danke schonmal vorab für das lesen des textes. Hoffe mich einigermaßen verständlich ausgedrückt zu haben.
Frank


Private Sub UserForm_Initialize()
Paßwort = CDbl(1) ' Schutz auf Wert 1 gesetzt
fkennwort.Text = "" 'Kennwort löschen
fkennwort.PasswordChar = "*" 'Echo Zeichen
fkennwort.MaxLength = 7 'Kennwortlänge
End Sub


Private Sub fcancel_Click()
Unload Me 'Formular schließen
Paßword = CDbl(1) ' Schutz auf Wert 1 setzen
nur_lese
End Sub


Private Sub fOK_Click()
Paßword = CDbl(0) ' Schutz auf Wert 0 setzen
If fkennwort.Text = "" Then
MsgBox "Kennwort fehlt", vbOKOnly, "Nachricht"
fkennwort.SetFocus  ' Focus im Eingabefeld
ElseIf fkennwort.Text  "frank" Then
MsgBox "Kennwort falsch, bitte wiederholen oder abbrechen", vbOKOnly, "Nachricht"
fkennwort.Text = "" 'Falscheingabe löschen
fkennwort.SetFocus ' Fokus im Eingabefeld
Paßwort = CDbl(1) 'Schutz auf Wert 1 setzen
Else
Unload Me ' Formular schließen
lese_schreibe
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hallo Hajo,
danke für Deine schnelle Antwort. Bin in VBA nicht gerade der hellste. Das Makro wurde durch das Forum geboren und zum Leben erweckt. Glaube mich zu erinnern, dass Du mir damals auch schon auf die Sprünge geholfen hast. Mit dem Environ hatte ich gestern mehrfach zu tun - keine Ahnung wie ich es einbinden soll. Brauche ja ne Userform mit 2 Textboxen wo die User ihren Benutzernamen und ihr Passwort eintragen. Natürlich will ich auf keinen Fall, dass deren passwörter irgendwo gespeichert und von anderen ausgelesen werden können. Weil Du darauf hinweist, was wäre denn der worst case? Wäre die Methode zu unsicher? Habe mir vorgestellt, da ja die Namen mit den dazugehörenden Passwörten bei Windows irgendwo gespeichert sein müssen. Also Name und kennwort an Windows übergeben und als Rückantwort kommt ja oder nein. Sehe ich bestimmt zu einfach, oder?
Frank

Private Sub Workbook_Open() Dim arrBerechtigt, blnError arrBerechtigt = Array("mueller", "meier", "schulze") 'Anmeldenamen blnError = IsError(Application.Match(Environ("username"), arrBerechtigt, 0)) If blnError Then ThisWorkbook.ChangeFileAccess xlReadOnly End If End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateizugriff über NT Kennung

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread