VBA - PROGRAMMIERUNG -  

AUTOMATISCHE PROCEDUREN

' Ereignisse
Option Explicit

' Hinweis: Seit Excel 97 können statt Auto-Prozeduren auch
' Workbook_Open- und _Close-Ereignisprozeduren verwendet werden
' (im Codefenster »Diese Arbeitsmappe«). Die Auto-Prozedur verkleinert
' alle geöffneten Fenster anderer Arbeitsmappen in Icons

Sub Auto_Open()
Dim f As Variant
MsgBox "Die Auto_Open-Prozedur wird ausgeführt."
For Each f In Windows
If f.Parent.Name <> ActiveWorkbook.Name And f.Visible Then
f.WindowState = xlMinimized
End If
Next f
End Sub

Sub Auto_Close() ' automatische Routine beim schliessen der Datei
MsgBox "Die Auto_Close-Prozedur wird ausgeführt."
End Sub