Microsoft Excel

Herbers Excel/VBA-Archiv

Datei öffnen | Herbers Excel-Forum


Betrifft: Datei öffnen von: Leitz G.
Geschrieben am: 02.02.2010 10:26:37

Hallo!

Wie kann ich beim öffnen einer Datei mit VBA die Datei ohne Makros öffnen?
Ohne Nachfrage automatisch!
Bitte um Hilfe

Gruß
Leitz G.

  

Betrifft: AW: Datei öffnen von: Reinhard
Geschrieben am: 02.02.2010 10:34:36

Hallo Leitz,

es gibt hier ein Archiv.

https://www.herber.de/forum/archiv/940to944/t942724.htm

Gruß
Reinhard


  

Betrifft: AW: Datei öffnen von: Leitz G.
Geschrieben am: 02.02.2010 10:46:10

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.


  

Betrifft: AW: Datei öffnen von: Reinhard
Geschrieben am: 02.02.2010 10:58:08

Hallo Leitz,

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

Gruß
Reinhard


  

Betrifft: AW: Datei öffnen von: Leitz G.
Geschrieben am: 02.02.2010 11:07:31

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.


  

Betrifft: Workbook öffnen, Makros deaktivieren! von: Renee
Geschrieben am: 04.02.2010 10:55:03

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


Beiträge aus den Excel-Beispielen zum Thema "Datei öffnen"