Datei öffnen | Herbers Excel-Forum

Forumthread: Datei öffnen

Datei öffnen

02.02.2010 10:26:37

Leitz G.

Hallo!
Wie kann ich beim öffnen einer Datei mit VBA die Datei ohne Makros öffnen?
Ohne Nachfrage automatisch!
Bitte um Hilfe
Gruß
Leitz G.

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datei öffnen

02.02.2010 10:34:36

Reinhard
AW: Datei öffnen

02.02.2010 10:46:10

Leitz G.
AW: Datei öffnen

02.02.2010 10:58:08

Reinhard
AW: Datei öffnen

02.02.2010 11:07:31

Leitz G.
Workbook öffnen, Makros deaktivieren!

04.02.2010 10:55:03

Renee

AW: Datei öffnen

02.02.2010 10:34:36

Reinhard

Hallo Leitz,
es gibt hier ein Archiv.
https://www.herber.de/forum/archiv/940to944/t942724.htm
Gruß
Reinhard

AW: Datei öffnen

02.02.2010 10:46:10

Leitz G.

Hallo!
Ich bin mir nicht ganz sicher, wenn ich das so schreibe werden die Macros nicht aktiviert, oder ?
If Datei_offen(strPfadDateiListeAll) = False Then
Application.EnableEvents = False
Workbooks.Open strLaufwerk & strPfadDateiListeAll
Application.EnableEvents = True
End If
Gruß
Leitz G.

AW: Datei öffnen

02.02.2010 10:58:08

Reinhard

Hallo Leitz,
nein, es werden nur die Ereignisprozeduren wie z.B. Workbook_Open nicht ausgeführt.
Makros in der Mappe sind aktiviert.
Gruß
Reinhard

AW: Datei öffnen

02.02.2010 11:07:31

Leitz G.

Hallo!
Aus dem Archiv Beitrag werd ich nicht schlau!
Application.EnableEvents = False
schaltet die Makros nicht aus! zumindest bei mir nicht.
Application.EnableEvents = False
If Datei_offen(strPfadDateiListeAll) = False Then
Workbooks.Open strLaufwerk & strPfadDateiListeAll
End If
Was ist an diesem Code falsch, ich möchte nur, daß die Datei ohne Makros geöfnet wird.
Gruß
Leitz G.

Workbook öffnen, Makros deaktivieren!

04.02.2010 10:55:03

Renee

Hi Leitz,
Die vorgeschlagenen Lösungen beziehen sich nur auf Ereignis-Prozeduren und nicht allgemein auf verfügbare Makros in der zu öffnenden Datei. Wenn du alle Makros der zu öffnenden Datei 'disablen' willst, dann versuch's mal so:

Sub OpenWithoutMakros()         ' oder wie auch immer dein Makro heisst
Dim secSave As MsoAutomationSecurity
'...dein Code vorher
If Datei_offen(strPfadDateiListeAll) = False Then
secSave = Application.AutomationSecurity
Application.AutomationSecurity = msoAutomationSecurityForceDisable
Workbooks.Open strLaufwerk & strPfadDateiListeAll
Application.AutomationSecurity = secSave
End If
'...dein Code nachher
End Sub

GreetZ Renée

Beliebteste Forumthreads (12 Monate)

Datei öffnen | Herbers Excel-Forum

Forumthread: Datei öffnen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread