Office: Excel nur von bestimmten Personen öffnen

Hi,

ist es möglich, dass eine Exceltabelle nur von folgenden Benutzern geöffnet werden darf: Hans.Peter, Administrator, Dieter.Kaiser

Wenn jemand am PC angemeldet ist soll er nicht in der Lage sein die Datei zu öffnen.

Vielen Dank im Vorraus

MFG

 

Hallo,

Extras >> Arbeitmappe Freigeben...


Gruß

 

Hi,

danke für die rasche Antwort.

Allerdings kann mit der Funktion trotzdem JEDER die Datei öffnen oder? Ich möchte aber dass nur die genannten Personen die Datei öffnen können!

Wie wäre es damit:

Excel checkt bei Workbood_Open den Environ("Username") und wenn der Username gleich xyz, zcxy, r3sa dann nichts else ThisWorkbook.close

geht das irgentwie?

hab ich mir so überlegt ^^

 

Für alle die soetwas brauchen:

Private Sub Workbook_Open()
Dim BerechtigteUser()
BerechtigteUser = Array("eba", "Herber", "Erwin", "U123456", "Nocheiner")

If Not IsError(Application.Match(Environ("Username"), BerechtigteUser, 0)) Then
MsgBox "Sie Sind berechtigt - viel Spaß !"
Else
MsgBox "Sie sind nicht berechtigt, die Datei zu öffnen - Mappe wird geschlossen !", , "ALARM !"
ThisWorkbook.Close False 'Mappe ohne Änderungen speichern
End If
End Sub


;) GL

 

Ok Problem ^^

ich brauch das ganze ohne Makro,

weil wenn man Makros deaktiviert hat bringt es ja alles nichts