' **************************************************************
'  Modul:  DieseArbeitsmappe  Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************

Option Explicit                                     ' Variablendefinition erforderlich
'**************************************************
'* H. Ziplies                                     *
'* 05.10.06                                       *
'* erstellt von HajoZiplies@web.de                *
'* http://Hajo-Excel.de/                          *
'**************************************************
' Autofilterfunktion, Gruppierung bei Blattschutz möglich?
' Diese Frage wird in Foren öffters gestellt.
' Das funktioniert normalerweise nicht. Man kann Excel aber austricksen:
' bevor man den Blattschutz aktiviert, blendest man den AutoFilter ein.
Sub Workbook_Open()
    With Worksheets("Adresse")
        .Protect UserInterfaceOnly:=True, Password:="Hajo_Zi"
        .EnableOutlining = True                     ' Für Gliederung
        .EnableAutoFilter = True                    ' Für AutoFilter
    End With
End Sub