Microsoft Office Tutorials and References
In Depth Information
2.5.1 Arbeitsmappe wird geöffnet
2.5.1
Arbeitsmappe wird geöffnet
Mit folgender Prozedur wird beim Öffnen der Arbeitsmappe gleichzeitig
eine zweite Arbeitsmappe geöffnet:
Mappe öffnen
Private Sub Workbook_Open()
MsgBox ActiveWorkbook.Name
Workbooks.Open "C:\Temp\Mappe3.xlsm"
End Sub
Zur Erläuterung:
Es wird die Ereignisprozedur Workbook _ Open() durchlaufen.
Workbook_
Open()
Nach einer Kontrollausgabe wird eine zweite Arbeitsmappe geöffnet.
Testen Sie die Prozedur, indem Sie Excel vollständig schließen und
anschließend die Arbeitsmappe, die die oben angegebene Prozedur ent-
hält, öffnen.
Hinweis
In den Versionen vor Excel 2007 muss die Dateibezeichnung in der Prozedur
wie folgt lauten: Mappe3.xls .
2.5.2
Arbeitsmappe wird geschlossen
Mit folgender Prozedur im Klassenmodul DieseArbeitsmappe wird eine
Arbeitsmappe vor dem Schließen ohne weitere Nachfrage automatisch
gespeichert:
Mappe schließen
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
End Sub
Zur Erläuterung:
Es wird die Ereignisprozedur Workbook _ BeforeClose() durchlaufen.
Workbook_
BeforeClose
Verhalten ohne diese Prozedur: Falls der Benutzer die Arbeitsmappe
ändert und schließt, wird er gefragt, ob er die Arbeitsmappe spei-
chern möchte. Diese Prozedur umgeht das, weil das Ereignis Before-
Close vor der Nachfrage auftritt.
Innerhalb der Prozedur wird die Arbeitsmappe mit Hilfe der Methode
Save() gespeichert.
Testen Sie die Prozedur, indem Sie eine Änderung vornehmen und die
Arbeitsmappe schließen.
Search JabSto ::




Custom Search