Office: Ausführung von Workbook_Open unterdrücken

Hallo zusammen,

Gibt es eine Möglichkeit, die Ausführung des Codes des Ereignisses Workbook_Open zu unterdrücken.

Der Hintergrund ist, dass ich Daten in ein geöffnetes Workbook kopiere, in dem ich die Quelldatei öffne, die Daten kopiere und die Datei wieder schließe.

Die Quelldatei öffnet jedoch mit dem Workbook_Open Ereignis ein Formular und setzt Application.Visible = False. Das möchte ich aber in dem Fall, wo ich die Datei nur als Datenquelle öffne, verhindern.

Gibt es da eine Möglichkeit?

Danke für die Hilfe!

:)

 

hiho

-> Öffne Excel -> Datei öffnen -> wähle die Datei -> drücke die Umschlattaste(Shift) -> öffnen

oder einfach zuvor die Sicherheit der Makros auf zumindest mittel stellen und -> beim Öffnen der Mappe Makros deaktivieren- > auswählen

 

Hallo chris-kaiser,

Danke für Deine Antowrt. Diese Möglichkeit kenne ich. Kann ich das Öffnen der Datei mit gedürckter Shift-Taste auch per VBA herbeiführen?

 

hiho

über VBA denke ich mal nicht *grins
das wäre ungefähr so, wie mit dem Auto eine Runde fahren ohne eingestiegen zu sein.
vielleicht über VBS aber da habe ich keinen Code bei der Hand!

 

Hmm...das klingt nicht gut...

Ferngesteuerte Autos gibt es dann scheinbar in der Excel-Welt noch nicht ;-)

Danke trotzdem und viele Grüße!

Anne

 

hi

*Smilie
doch Fernsteuerung gibt es schon z.b VBS
nur wie soll der Code in VBA starten wenn er abgeschaltet sein soll *biggrin.gif*

 

Ich hatte mir eigentlich vorgestellt, dass ich aus der aktiven Mappe heraus, aus der ich die Quellmappe per VBA öffne, das Workbook_Open Ereignis unterdrücken könnte.

 

hiho

ja dann geht es schon
*Smilie
bei workbook_open

noch eine if rein
ob deine aufrufende Mappe geöffnet ist
wenn ja ein exit rein

 

Ah, das ist ja ein super Umweg!

Vielen Dank, das werde ich mal testen!

 

HAllo Anne

Öffne deine Datenquelldatei in einer anderen Instanz.
In der schaltest du die Ereignissmakros aus und kopierst:

Rumpfcode ist ungefähr so:

Option Explicit

Public Sub test()
Dim AktWB As Workbook
Dim Das_Andere As Workbook
Dim Inst_2
Set Inst_2 = CreateObject("Excel.Application")
Set AktWB = ThisWorkbook
With Inst_2
.EnableEvents = False
Set Das_Andere = .Workbooks.Open("Dein Pfad")
Das_Andere.Sheets("Tabelle1").Range("A1:B5").Copy _
AktWB.Sheets("Tabelle1").Range("Dein Zielbereich")
Das_Andere.Close False
.Quit
End With
End Sub


Hast du das Prinzip verstanden ?


ransi

 

hiho

hier noch ein link

für die Abfrage ob bestimmte Datei geöffnet ist

http://www.ms-office-forum.net/forum...threadid=56143

und nun AIW
(ab ins Wochenende)

 

Hallo Ransi,

Das Prinzip habe ich verstanden, ich werde es jetzt mal ausprobieren!

Viele Grüße,

Anne

 

Hallo,

Also mit folgendem Code habe ich nun versucht, Ransis Vorschlag umzusetzen:

Code:

Dabei hängt sich Excel leider komplett auf. Der Fehler tritt an dieser Stelle auf:

Code:

Was mache ich dabei falsch?

 

HAllo Anne


Aus der Hilfe zu GetOpenFilename:

Du willst ja die Mappe in Inst_2 öffnen. Von daher wäre es logisch sich mit GetOpenFilename auch darauf zu beziehen.

Versuch mal...
Ungetestet:

Set Inst_2 = CreateObject("Excel.Application")
With Inst_2
'.visible=true
strDatei = .GetOpenFilename
.EnableEvents = False
Set Quellmappe = .Workbooks.Open(strDatei)

'
'
'


ransi

 

HAllo Anne

Vergiss den letzten Post...
So ein Blödsinn kommt raus wenn man nicht testet.

Habe das Ganze jetzt mal nachgebaut.
Anscheinend kann man nicht ohne "paste" zwischen 2 Applicationen hin und her kopieren.

So läuft es:
Option Explicit

Private Sub CommandButton2_Click()

Dim strDatei As String
Dim lngLastRow As Integer
Dim Zielmappe As String
Dim Quellmappe As Workbook
Dim Dateiname As String
Dim i As Integer
Dim Inst_2
Zielmappe = ActiveWorkbook.Name
MsgBox "Öffnen Sie die Datei, aus der Sie das Qualifikationsprofil importieren möchten."
strDatei = Application.GetOpenFilename
lngLastRow = Workbooks(Zielmappe).Worksheets("Qualifikationsprofile").Cells(Rows.Count, 2).End(xlUp).Row + 1
Set Inst_2 = CreateObject("Excel.Application")
With Inst_2
'.Visible = True
.EnableEvents = False
.DisplayAlerts = False
Set Quellmappe = .Workbooks.Open(strDatei)
Quellmappe.Sheets("Qualifikationsprofile").Rows(4).Copy
Workbooks(Zielmappe).Sheets("Qualifikationsprofile").Paste Destination:=Cells(lngLastRow, 1)
Quellmappe.Close False
.Quit
End With
MsgBox "Qualifikationsprofil wurde importiert und kann nun aus der Liste ausgewählt werden!"
Worksheets("Startseite").Activate
End Sub


ransi