Office: (Office 2010) Exceldatei nur von bestimmten Personen öffnen

Hallo zusammen,

ich möchte eine Excel Datei nur von bestimmten Usern öffnen lassen können. Dazu habe ich hier im Forum schon etwas gefunden:

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​

Jetzt habe ich folgendes Problem: die Nutzer, die nicht berechtigt sind, können die Datei nicht bearbeiten, sehen aber im Hintergrund der Meldung ein geöffnetes Blatt der Datei. Ich möchte natürlich, dass keine Daten der Datei sichtbar sind.

Kann mir da jemand helfen?

Viele Grüße Katja

 

Hallo Katja,

evtl. als ersten Schritt in ein leeres Blatt springen, das dann als Hintergrund dient.

Gruß,
Lutz

 

Hallo Lutz, danke für deine schnelle Antwort.

So was ähnliches habe ich auch schon überlegt. Ich dachte daran die Datei immer in einem leeren Blatt zu schließen. Deine Version ist natürlich noch logischer :)

Da ich diesen Zugriff aber in einigen Dateien einrichten möchte, suche ich noch nach einer "eleganteren" Lösung.
Das wäre aber auf jeden Fall eine Möglichkeit.

Viele Grüße
Katja

 

Hi,

ein leeres Blatt in die Tabelle, dieses beim Workbook_open als sichtbar zeigen, wenn der Benutzer autorisiert ist, dieses ausblenden und die Arbeitsblätter einblenden.

Beim Workbook_close eben umgekehrt.

Code:

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ß !"
for loA=1 to worksheets.count
if Worksheets(loa).name="leeres_Blatt" then
   Sheets(loa).hidden=true
else
sheets(loa).hidden=false
end if
next
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

 

Oder auch so:
http://www.supportnet.de/fresh/2006/8/id1407734.asp

 

oh, das hört sich super an, weil ich dann kein Extrablatt brauche. Nur leider verstehe ich nicht, wie ich das in mein Makro einbinden kann.

Kannst Du mir da nochmal helfen :)

 

Huhu,

danke, das wäre auch eine gute Alternative. Da die Datei schon so viele Blätter hat, würde ich gern auf zusätzliche Blätter verzichten, aber das merke ich mir auf jeden Fall, da könnte man ja auch was anzeigen lassen, was ruhig alle sehen können. Danke!

VG Katja

 

Huhu,

danke, das wäre auch eine gute Alternative. Da die Datei schon so viele Blätter hat, würde ich gern auf zusätzliche Blätter verzichten, aber das merke ich mir auf jeden Fall, da könnte man ja auch was anzeigen lassen, was ruhig alle sehen können. Danke!

VG Katja

 

Hi,

Da kommt es doch nicht auf ein Blatt an.

 

Ich habe es jetzt so:

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

dann wird die Massagebox aber auch mit minimiert. gibt es noch die Möglichkeit, diese aktiv zu lassen?

 

Hallo Katja,

das ist das Problem mit der Messagebox. Wenn Du Excel minimierst ist sie auch weg.

Das wird in dem Link, den ich angehängt habe gelöst, indem statt der normalen Messagebox ein Userform erstellt wird, das dann bei Bedarf eingeblendet wird.
Du musst dann das Userform aber in jeder Datei, wo du es anwenden willst, einbinden.

Hab noch ne weitere Idee:
Du fügst zu Beginn der Abfrage ein Blatt ein und löschst es am Ende wieder. Dann hast Du nicht mehr Blätter als nötig.

Gruß,
Lutz

 

Vielen Dank für Eure Hilfe. Ich denke, dann ist es doch am Einfachsten mit einem leeren Blatt :)
Ich werde es damit mal ausprobieren :)