Discussion:
Wie Makroverarbeitung bei Workbook.Open unterbinden?
(zu alt für eine Antwort)
Michael Mueller
2006-01-09 12:43:52 UTC
Permalink
Hi.

Ich öffne per
Workbook.Open "Test.xls"
eine Arbeitsmappe.
In dieser Arbeitsmappe "Test.xls" ist das Open-Event mit Code hinterlegt.
Private Sub Workbook_Open()
[...]
End Sub

Wie kann ich die Ausführung dieses Codes verhindern?

Danke
Michi
Dr. Eckehard Pfeifer
2006-01-09 12:48:17 UTC
Permalink
Hallo,
1. Umschalt-Taste beim Oeffnen druecken oder
2. Code auskommentieren oder
3. Code loeschen

--

MfG EP
Entwicklung, Beratung und Training
(Microsoft Certified Application Developer)
www.dr-e-pfeifer.net, www.ppt-user.de

--
Microsoft Excel Funktionsverzeichnis, ISBN 3860636898
Microsoft Excel Programmier-Rezepte, ISBN 386063089X
Microsoft Office PowerPoint 2003 - Das Handbuch, ISBN 3860631942
Microsoft Office Excel 2003 - Das Handbuch, ISBN 3860631934
Michael Mueller
2006-01-09 12:53:57 UTC
Permalink
Hi Eckehard.
Post by Dr. Eckehard Pfeifer
1. Umschalt-Taste beim Oeffnen druecken oder
Ist das per Code realisierbar?
Post by Dr. Eckehard Pfeifer
2. Code auskommentieren oder
Nicht möglich.
Es sollen nur Daten aus dieser Datei kopiert werden, eine Änderung ist nicht
vorgesehen.
Post by Dr. Eckehard Pfeifer
3. Code loeschen
Siehe 2., somit ist auch 3. keine Option.

Gruß
Michi
Dr. Eckehard Pfeifer
2006-01-09 13:18:26 UTC
Permalink
oh, da habe ich was uebersehen (.Open). also: siehe Melanies Antwort.

--

MfG Eckehard
Michael Mueller
2006-01-10 06:04:10 UTC
Permalink
Post by Dr. Eckehard Pfeifer
oh, da habe ich was uebersehen (.Open). also: siehe Melanies Antwort.
Kein Problem.

Gruß
Michi
Melanie Breden
2006-01-09 12:50:44 UTC
Permalink
Hallo Michael,
Post by Michael Mueller
Ich öffne per
Workbook.Open "Test.xls"
eine Arbeitsmappe.
In dieser Arbeitsmappe "Test.xls" ist das Open-Event mit Code hinterlegt.
Private Sub Workbook_Open()
[...]
End Sub
Wie kann ich die Ausführung dieses Codes verhindern?
deaktiviere vorab alle Ereignisse-Aufrufe und setze die Eigenschaft anschließend
wieder auf True, da bis auf Wiederruf keine Ereignisprozeduren aufgerufen werden.

Application.EnableEvents = False
Workbook.Open "Test.xls"
Application.EnableEvents = True


Mit freundlichen Grüssen
Melanie Breden
--
- Microsoft MVP für Excel -
Microsoft Excel - Die ExpertenTipps http://tinyurl.com/cmned
Das Excel-VBA Codebook http://excel.codebooks.de
Excel-Auftragsprogrammierung
Michael Mueller
2006-01-10 06:05:00 UTC
Permalink
Post by Melanie Breden
Post by Michael Mueller
Private Sub Workbook_Open()
[...]
End Sub
Wie kann ich die Ausführung dieses Codes verhindern?
Application.EnableEvents = False
Workbook.Open "Test.xls"
Application.EnableEvents = True
Hi Melanie.

Danke, genau das fehlte mir

Gruß
Michi

Loading...