Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

bei OPEN macros vermeiden

bei OPEN macros vermeiden
11.02.2008 16:08:00
sachsenhessi
Hi Leute,
gibt es eine Möglichkeit in einem VBA-Makro bei WORKBOOKS.OPEN "xyz.xls" die Ausführung von Macros zu verhindern?
- Die VB-Sicherheitseinstellungen können nicht (?) genutzt werden, da bei "normaler" Ausführung der XLS-Datei die Macros laufen müssen.
- WORKBOOKS.OPEN mit ReadOnly-Flag fällt ebenfalls aus, da ich in die Datei schreiben muß.
Kennt jemand einen Trick, sinngemäß "nächste Datei ohne Macros öffnen" ?
Danke
Frank

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bei OPEN macros vermeiden
11.02.2008 16:18:02
Rudi
Hallo,
Events aus
WB öffnen
Events wieder ein.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: bei OPEN macros vermeiden
11.02.2008 16:18:00
Christian
Servus,
mir fallen 2 Arten ein die du versuchen könntest es kommt jedoch darauf an was sich verändert wird, sprich soll für eine bestimmt benutzergruppe das Makro laufen oder wenn sich die Datei verändert.
zu1. Benutzergruppe.
Du könntest beim starten des Workbookopen den Benutzernamen abfragen und wenn der richtig ist dann es starten oder du machst eine kleine Userform wo man ein Passwort eingibt und du es überprüfen lässt ob das Passwort richtig ist und dadurch nur das Marko erst starten lässt.
zu 2. Datei wird verändert.
zum Beispiel liegt die Datei als xlt vor und du überprüfst den Dateinamen.
Falls dir diese Vorschläge etwas bringen und du hilfe für die implementierung brauchst melde dich einfach nochmal.
Ich hoffe ich habe dein Problem verstanden.
Gruß
Christian

Anzeige
AW: bei OPEN macros vermeiden
11.02.2008 16:22:00
Oberschlumpf
Hi Frank
Wie wärs mit dieser Idee (ungetestet):
In der eigentlichen Datei setzt du vor allen Makros in Workbooks.Open diesen Code:

For liIndex = 1 To Workbooks.Count
If Workbooks(liIndex).Name = "DeineNeueDatei" Then Exit sub
Next


Dann erstellst du nur für dich eine Hilfsdatei, z Bsp "DeineNeueDatei.xls", mit der du in Zukunft die eigentliche Dateistartest.
"Deine" Datei enthält einfach nur diesen Code in Workbooks.Open:


Workbooks.Open "Pfad\dieEigentliche.Datei.xls"


Fertig.
Wenn du nun mit Hilfer der Hilfsdatei die eigentliche Datei öffnest, um die es geht, dann wird zuerst in der For/Next-Schleife danach gesucht, ob auch deine Hilfsdatei geöffnet ist.
Wenn Ja, dann wird kein weiter Code ausgeführt.
Öffnest du die eigentliche Datei, OHNE, dass du zuvor die Hilfsdatei offen hast, wird der Name der Hilfsdatei NICHT in der Schleife gefunden, und der nach der Schleife folgende Code wird ausgeführt.
Somit wird der Code also auch immer ausgeführt, wenn jemand anderer die Datei öffnet, da ja nur du die Hilfsdatei hast.
Hilft das?
Ciao
Thorsten

Anzeige
AW: bei OPEN macros vermeiden
11.02.2008 19:46:16
sachsenhessi
Danke,
Problem gelöst ;-)

application.EnableEvents
ist jetzt mein Freund.
Na ja, Wald, Bäüme und so....
Danke an alle
Frank

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige