Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1288to1292
1288to1292
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei nur für bestimmten User öffnen

Forumthread: Datei nur für bestimmten User öffnen

Datei nur für bestimmten User öffnen
09.12.2012 14:12:46
Tim
Hallo an alle,
ich habe einen Ordner mit einer Tabelle und einer Kopie der Tabelle.
Die Tabelle ist für alle User gedacht und die Kopie nur für den Admin.
Da im Code aus organisatorischen Gründen festgelegt ist, dass die Datei nur in diesem Ordner funktioniert, befinden sich beide Dateien (Tabelle und Kopie im gleichen Ordner) und es kommt immer wieder vor, das User versehentlich die Kopie statt der eigentlichen Tabelle öffnen.
Gibt es einen Weg in VBA zu sagen, wenn Dateiname = "XXX" und User ungleich "YYY", dann öffne die Datei nicht, sonst öffnen ganz normal ?
Mein Problem ist dabei die Abfrage des Dateinamens, den Rest bekomme ich selber hin.
VG und vielen Dank im Voraus,
Tim

Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei nur für bestimmten User öffnen
09.12.2012 14:20:58
Mister
Hallo,
das geht mit:
If Environ("Username") "Mister-B" Then
MsgBox "Du kommst hier nit rein"
End If
Gruß
Martin

AW: Datei nur für bestimmten User öffnen
09.12.2012 14:24:55
Hajo_Zi
Hallo Martin,
ich würde vermuten da fehlt noch
ThisWorkbook.Close False
Falls Makro deaktiviert nützt es aber nichts.
Gruß Hajo

Anzeige
AW: Datei nur für bestimmten User öffnen
10.12.2012 08:37:20
Tim
Hallo Hajo,
vielen Dank auch dafür - das ist super ! :-)
VG und einen schönen Tag,
Tim

AW: Datei nur für bestimmten User öffnen
09.12.2012 14:22:02
Hajo_Zi
Hallo Tim,
bei open in jeder Datei Environ("USERNAME") abfragen.

Anzeige
AW: Datei nur für bestimmten User öffnen
09.12.2012 14:37:47
Hajo_Zi
Hallo Tim,
löse es über die Zugriffrechte vom Betriebssystem, ist aufwendiger als sonst da kein Extra Ordner. Es geht aber. Da hat es keinen Einfluss ob Makros aktiv.
Gruß Hajo

AW: Datei nur für bestimmten User öffnen
09.12.2012 14:22:06
Daniel
Hi
Dateiname der Datei: ThisWorkbook.Name
Pfad der Datei: ThisWorkbook.Path
Pfad und Dateiname: ThisWorkbook.FullName
Gruß Daniel

Anzeige
AW: Datei nur für bestimmten User öffnen
10.12.2012 08:36:40
Tim
Hallo Daniel,
vielen Dank dafür - genau danach hatte ich gesucht !
Klappt bestens. :-)
VG und einen schönen Tag,
Tim

AW: Datei nur für bestimmten User öffnen
09.12.2012 14:43:33
Mister
Hallo Tim,
die Vorschläge die hier gemacht wurden sind alle korrekt aber funktionieren nur wenn Makros aktiviert sind. Wenn die Datei mit gedruckter Esc Taste geöffnet wird, dann kommt jeder rein und du kannst nichts dagegen machen. Wie immer, diese Sicherheitsvorkehrungen die man in Excel einbauen kann hilfen lediglich gegen unbeabsichtiges Löschen usw. Excel ist nunmal nicht sicher.
Gruß
Martin

Anzeige
AW: Datei nur für bestimmten User öffnen
09.12.2012 15:05:52
Daniel
Hi
um zumindestmal den Standarduser ohne kriminelle Absicht auszusperren, kann man so vorgehen:
1. im Before_Save-Event alle Tabellenblätter bis auf ein leeres Startblatt ausblenden mit .Visible = xlSheetVeryHidden
2. im After_Save-Event alle Blätter wieder einblenden und Saved = True setzen (neues Event!)
3. im Workbook_Open-Event prüft man dann, ob die Bediungungen erfüllt sind und wenn ja, blendet man alle Blätter wieder ein
4. jetzt kann man noch das VBA-Projekt mit einem Passwort versehen.
öffnet jetzt der Anwender die Datei mit Deaktivierten Makros, so sieht er nur die leere Starttabelle, weil durch das Before_Save-Event vor dem Speichern alle anderen Blätter ausgeblendet wurden.
Gruß Daniel

Anzeige
AW: Datei nur für bestimmten User öffnen
09.12.2012 15:07:34
Hajo_Zi
Beispiele dazu findest Du hier
http://hajo-excel.de/vba_nur_makros.htm
Man sollte schon im ersten Beitrag die Aufgabe komplett beschreiben. Beiträge in denen die Aufgabenstellung nicht komblett beschrieben ist erhalten von mir keine weiteren Antworten.
Man muß sich bei jeder veränderten Aufgabenstellung wieder neu in das Problem einarbeiten.

Anzeige
@Hajo,...verwechselst du gerade was?,..
09.12.2012 15:48:12
Matze,Matthias
Hallo Hajo,
..hab nicht gesehen das der Fragesteller sich schon hier mal geäußert hat.
Matze

AW: Fehler
09.12.2012 15:50:41
Hajo_Zi
Hallo Matze,
der Abspann muss fort, da habe ich das falsche von der TB Jeanie eingesetzt.

Anzeige
AW: Datei nur für bestimmten User öffnen
10.12.2012 08:41:46
Tim
Hallo Daniel,
vielen Dank auch dafür !
Das ist alles schon eingebaut (und noch einiges mehr) - nur die ursprüngliche Frage zu Beginn des Threads war noch offen und ist nun dank Deiner / Eurer Hilfe auch bestens gelöst. :-)
VG und vielen Dank nochmal,
Tim

AW: Datei nur für bestimmten User öffnen
10.12.2012 08:40:12
Tim
Hallo Martin,
vielen Dank dafür !
Das ist ok so, da es noch eine ganze Reihe anderer Sicherheitsmechanismen gibt.
Es geht mir bei dieser Tabelle nicht um den ultimativen Schutz, sondern nur um ein paar einfache Hürden, die unbeabsichtigtes Ändern einschränken / verhindern, da die Datei in der Regel von Excel-Laien genutzt wird.
VG und vielen Dank nochmal,
Tim
Anzeige
;

Forumthreads zu verwandten Themen

bat Datei läßt sich nicht ausführen
Josef

Hallo!
Wollte jetzt eine .bat Datei starten und bekomme die Fehlermeldung Pfad nicht gefunden:
Kann dies an der Variable dokname liegen?
Sub batstart() Dim dokname Dim wks As Worksheet Set wks = Workbooks("Import_Ersatz.xls").Worksheets("Tabelle1") dokname = wks.Range("D2").Value...
04.12.2008 08:28:00
Thread-ID: 1030024
3 Beiträge
Datei läßt sich nicht mehr öffnen
Reinhardt

Hilfe!
Ich habe wohl an einer sehr großen und wichtigen Excel-Datei einen "Programierfehler" gemacht.
Ich habe eine Sub kopiert, wollte diese ändern und einen neuen Namen geben. Blablabla..
Dann habe ich die Datei geschlossen, ohne den Sub Namen zu ändern, erhielt eine Meldung, dann...
16.01.2009 07:57:41
Thread-ID: 1040392
3 Beiträge
Exeldatei läst sich nicht mehr öffnen
ben

hallo leute
habe da wirklich ein dickes problem.
eine sehr wichtige datei läst sich nicht mehr öffnen.
ist aber wie die anderen 589 kb groß, alle anderen gehen noch.
habe seit stunden im internet gesucht und nichts gefunden. auch über exel viewer geht nichts.
es gibt ja prog...
02.06.2009 00:44:07
Thread-ID: 1078515
6 Beiträge
Datei öffnet nicht mehr!!
Andreas

Hallo Forum,
habe eine Excel-Datei erstellt und kann sie jetzt nicht mehr öffnen.
Beim Versuch sie zu öffnen startet excel und unten links kommt auch der kleine "ladebalken".
Doch dann gehts nicht weiter.
Kann man mir helfen, oder ist die arbeit hin?
Gruß Andreas
06.07.2009 22:25:21
Thread-ID: 1086797
4 Beiträge
Anzeige
Datei lässt sich nicht öffnen
einfachf

Hallo Zusammen ich schreibe gerade an einem Macro.
Dazu soll aus einer bestehenden datei eine andere Datei geöffnet werden.
Leider funzt das nicht und ich weiß nicht warum.
Hier mein Code.
Dim EX As Excel.Application
Dim WB As Workbook
Dim WS As Worksheet
Set EX = Cr...
06.08.2009 12:12:10
Thread-ID: 1094009
3 Beiträge
Alle xls Dateien öffnen
Klaus

Hallo zusammen
Ich möchte alle Exceldateien in einem Verzeichnis nacheinander öffnen, dort per Makro (ist vorhanden) Zeilen und Formeln einfügen, speichern und schliessen.
Danke für Eure Hilfe
29.10.2009 14:45:17
Thread-ID: 1113068
3 Beiträge
Datei lässt sich nicht öffnen
Ernst

Hallo Forum
Habe eine Datei abgespeichert, so wie ich es immer mache, lässt sich aber jetzt nicht mehr öffnen.
Wie kann ich die Datei öffnen?
Bitte um Hilfe
mfg
Ernst Dunkel
04.01.2010 13:35:12
Thread-ID: 1127045
5 Beiträge
Dateien lassen sich nicht öffnen
Florian

Hallo zusammen
Seit ich den PC neu aufrüsten musste "Festplatte" kann ich bei Programme und unter Daten bei einem speziellen Programm die Excel-Dateien nicht mehr öffen. Kann die Dateien nicht finden obwohl sie dort sind. Bringt immer Fehler
Wenn ich dieselbe Datei auf den Desktop tue k...
14.02.2010 21:13:08
Thread-ID: 1138533
3 Beiträge
Datei öffnet sich von selber wieder
selber

Hallo zusammen
ich habe ein etwas lustiges Problem das aber behoben werden muss
wenn ich excel komplett schließe hab ich kein Problem
schließe ich aber nur das Workbook öffnet sich die Datei von alleine wieder
das hängt irgendwie mit folgendem Makro zusammen
Private Sub zeit...
11.03.2010 13:13:57
Thread-ID: 1145118
5 Beiträge
Exceldatei öffnet nicht mehr
Ron

Hallo Forum,
ich hoffe einer von euch kann mir helfen.
Meine Eckdaten: Windows XP und Officepaket 2000
Der Hacken in Excel bei (Extras--Optionen--Allgemein) Andere Anwendungen ignorieren ist raus.
Folgendes Phänomen habe ich.
Vor kurzem hatte ich noch mit Windows 2000 und Of...
28.07.2010 16:35:56
Thread-ID: 1169352
8 Beiträge
Anzeige
Excel-Datei lässt sich nicht mehr öffnen
Carl

Hallo,beim Versuch eine Excel-Datei von einer CD zu öffnen, bzw. zu kopieren, bekomme ich folgende Fehlermeldung:"Auf "Datei.xls" konnte nicht zugegriffen werden. Unter Umständen ist die Datei oder der Speicherplatz der Datei schreibgeschützt, oder der Server, auf dem das Dokument gespeichert i...
07.05.2002 15:26:06
Thread-ID: 119227
2 Beiträge
XLS Datei versteckt öffnen, GetObject?
Holger

Hallo,
ich öffne während der Laufzeit meines Makros eine Excel Datei, aus der ich Daten auslese.
Das Problem ist, dass automatisch auf die neue Datei der Fokus gelegt wird und das möchte ich nicht.
Ich habe etwas von GetObject gelesen, weiß aber die genaue Anwenung nicht.
Wie ka...
19.10.2010 08:33:05
Thread-ID: 1182989
23 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Datei nur für bestimmten User öffnen

Schritt-für-Schritt-Anleitung

Um eine Excel-Datei nur für bestimmte Benutzer zu öffnen, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne die Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf „VBAProject (DeineDatei.xls)“ und wähle „Einfügen“ > „Modul“.

  3. Füge den folgenden Code ein:

    Private Sub Workbook_Open()
   If Environ("Username") <> "DeinBenutzername" Then
       MsgBox "Du kommst hier nicht rein!"
       ThisWorkbook.Close False
   End If
End Sub

    Ersetze „DeinBenutzername“ mit dem Namen des Benutzers, der Zugriff haben soll.

  4. Speichere die Datei als „Excel-Arbeitsmappe mit Makros“ (.xlsm).

  5. Teste den Code, indem Du die Datei mit einem anderen Benutzer öffnest.

Häufige Fehler und Lösungen

  • Excel-Datei öffnet sich nicht: Stelle sicher, dass Makros aktiviert sind. Wenn Makros deaktiviert sind, kannst Du keine VBA-Programmierung ausführen.

  • Fehlermeldung bei nicht genehmigten Benutzern: Überprüfe den Benutzernamen, den Du in den Code eingegeben hast. Er muss exakt mit dem Namen in Windows übereinstimmen.

  • Excel-Dateien öffnen mit falschem Benutzer: Wenn jemand die Datei mit gedrückter Esc-Taste öffnet, um Makros zu umgehen, wird der Code nicht ausgeführt. Überlege, zusätzliche Sicherheitsmaßnahmen zu implementieren.

Alternative Methoden

  1. Zugriffsrechte im Betriebssystem: Eine aufwendigere Methode ist die Verwendung von Betriebssystem-Zugriffsrechten. So kannst Du sicherstellen, dass nur bestimmte Benutzer auf den Ordner oder die Datei zugreifen können.

  2. Blätter ausblenden: Du kannst im Before_Save-Event alle Tabellenblätter außer einem leeren Startblatt ausblenden. Nutze dabei xlSheetVeryHidden, um die Blätter vor dem Benutzer zu verstecken.

  3. VBA-Projekt mit Passwort schützen: Dies bietet eine zusätzliche Sicherheitsebene, falls jemand versucht, den Code zu ändern.

Praktische Beispiele

Hier ist ein Beispiel für den Code, der die Blätter ausblendet:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Startblatt" Then
            ws.Visible = xlSheetVeryHidden
        End If
    Next ws
End Sub

Private Sub Workbook_AfterSave()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Visible = xlSheetVisible
    Next ws
End Sub

Mit diesem Code werden alle Blätter außer dem „Startblatt“ vor dem Speichern ausgeblendet und nach dem Speichern wieder eingeblendet.

Tipps für Profis

  • Dokumentation: Halte Deine VBA-Codes gut dokumentiert, damit Du oder andere Benutzer in Zukunft verstehen, was jeder Abschnitt macht.

  • Regelmäßige Backups: Erstelle regelmäßig Backups Deiner .xls-Dateien, um Datenverluste zu vermeiden.

  • Testen auf verschiedenen Systemen: Teste Deine Datei auf verschiedenen Benutzersystemen, um sicherzustellen, dass alles ordnungsgemäß funktioniert.

FAQ: Häufige Fragen

1. Wie öffne ich eine .xls-Datei?
Um eine .xls-Datei zu öffnen, kannst Du sie einfach doppelklicken oder Excel öffnen und dann „Datei“ > „Öffnen“ auswählen.

2. Was tun, wenn die Excel-Datei nicht öffnet?
Überprüfe, ob die Datei beschädigt ist oder ob Du die richtigen Berechtigungen hast. Manchmal kann es auch helfen, Excel neu zu starten.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige