Hallo Leute, ich habe mal wieder eine kleine Herausforderung:
Auf einem zentralen Serverlaufwerk liegt ein Ordner, auf den untgefähr 100 Leute zugreifen
können und sollen.
In dem Ordner liegt eine Urlaubsliste. Auf diese sollen aber nur 20 bestimmte Personen zugreifen
dürfen.
Meine Überlegung war, dass ich über Environ("Username") den User Abfrage und dann im
Private Sub Workbook_Open() über ein if - then Formel abfrage, ob der User zu der Gruppe der
20 Berechtigten zählt, wenn nicht soll die datei über close file (vielleicht noch mit einer kleinen MsgBox
"Zugriff verweigert") sofort wieder geschlossen werden.
Ich habe nun 1.) das Problem, wie ich diese Anweisung am besten schreibe. Muß ich in der if
Anweisung sämtliche erlaubten User einzelnd einbauen, also so:
If environ("Username")user1 or If environ("Username")user2 or If environ("Username")user or If environ("Username")user4 or . . . . . . then close file
Oder kann man die User irgendwie zu einer Art Gruppe zusammenfassen und dann eine Abfrage machen,
die ungefähr so aussieht: Wenn environ("username") nicht bestandteil der gruppe USER, dann Datei schließen?
2.) wie kann ich verhindern, dass der Benutzer vorher die Makros deaktiviert? - Dann würde er diese
Prüfung ja ohne weiteres umgehen können.
Oder gibt es einen ganz anderen eleganteren Weg?
Danke, Gruß,
Ramon