Zugriffskontrolle mittels Environ und ext. Liste
23.10.2017 13:32:09
lindros
Ich möchte den Zugriff zu einer Excelarbeitsmappe nur für definierte Windows-User zulassen.
Diesbezüglich soll beim Öffnen der Arbeitsmappe der UserName (aus der Windowsanmeldung) mit einer Excelliste ausserhalb dieser Arbeitsmappe verglichen werden (am Besten, ohne dass diese geöffnet wird). Sofern keine Übereinstimmung, muss die Arbeitsmappe geschlossen werden.
Ich habe folgendes VBA-Script gefunden, jedoch ist der Bereich statisch im VBA statt dynamisch in einer Excelliste ausserhalb dieser Datei. Bis auf diese Tatsache funktioniert dieses Script jedoch wunschgemäss.
Könnt ihr mir helfen?
Besten Dank
Private Sub Workbook_Open()
Dim Users As Variant
Dim UName As String
Dim UFind As Variant
Users = Array("JBLOGS", "DOEJOHN", "ASmith", "JanDoe")
UName = Environ("UserName")
On Error Resume Next
UFind = WorksheetFunction.Match(UName, Users, 0)
If Err 0 Then
MsgBox "You are not authorised to use this Workbook"
ThisWorkbook.Close SaveChanges:=False
End If
End Sub