habe mal eine Frage zur Öffnung einer Excel - Datei mit Environ("USERNAME").
Der Code unten macht schon das was er soll. Möchte diesen aber noch ein wenig ausbauen.
Die "Berechtigten" bekommen Vollzugriff auf die Datei, also Lese und Schreibrecht.
Weiterhin möchte ich noch habe das manche nur "Lesen" können ohne Schreibrecht und alle übrigen dürfen die Datei nicht öfnnen.
Kann man den Code unten noch weiter ausbauen?
Berechtigte Vollzugriff, alle anderen nur Schreibgeschützt:
Private Sub Workbook_Open()
Application.DisplayAlerts = False
Dim Berechtigt()
Berechtigt = Array("Michael", "Hans", "Werner", "Achim", "Claudia")
If Not IsError(Application.Match(Environ("Username"), Berechtigt, 0)) Then
MsgBox "Guten Tag" & " " & Environ("USERNAME") & "," _
& vbCrLf _
& vbCrLf _
& "Sie sind berechtigt an der Datei zu arbeiten." _
& vbCrLf _
& vbCrLf _
& "Bei Problemen oder Fragen bitte an Michael" _
& vbCrLf _
& vbCrLf _
& "Gutes Gelingen und viel Spaß", _
vbInformation
Else
If ActiveWorkbook.ReadOnly = False Then
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
MsgBox "Guten Tag" & " " & Environ("USERNAME") & "," _
& vbCrLf _
& vbCrLf _
& "Sie sind nicht berechtigt an der Datei zu arbeiten." _
& vbCrLf _
& vbCrLf _
& "Die Datei wird schreibgeschützt geöffnet" _
& vbCrLf _
& vbCrLf _
& "Wir schaffen das !!", _
vbInformation
End If
End If
End Sub
Das passt soweit, nur möchte ich das auch beim schreigeschützten Öffnen nur bestimmte User haben und der Rest dann keinen Zugriff.
Danke Euch
Gruß