User anstatt Passwort

Forumthread: User anstatt Passwort
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: User anstatt Passwort

10.07.2018 12:41:22

Thomas

Hallo
Im Netz habe ich schon gefunden, das man den angemeldeten User auslesen kann.
Kann ich anstatt eines Passwortes, eine Abfrage machen, das wenn ein User zugreifen darf, diesen hinterlege und bei öffnen der Datei, der Windows User abgefragt wird.
Wenn User hinterlegt, dann öffnen, wenn nicht MsgBox: Zugriff verweigert.
Es sollen mehrere User hinterlegt werden.
Danke und Gruß
Tommy

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: User anstatt Passwort

10.07.2018 12:52:10

Daniel
AW: User anstatt Passwort

10.07.2018 13:01:52

Thomas

AW: User anstatt Passwort

10.07.2018 12:52:10

Daniel

Hi
du kannst die UserID (anmeldenamen in Windows) in einem Tabelleblatt in einer Spalte hinterlegen.
im WorkbookOpen-Event der Mappe kannst du dann die Abfrage machen:


If worksheetfunction.CountIf(Sheets("TabelleUser").Columns(1), Environ("Username")) = 0 Then
msgbox "Zugriff verweigert"
Else
Msgbox "Herzlich Willkommen"
End if

beachte jedoch, dass jeder Anwender die Möglichkeit hat, beim öffnen einer Datei die Makros zu deaktivieren.
Gruß Daniel

AW: User anstatt Passwort

10.07.2018 13:01:52

Thomas

Super. Vielen Dank.