Für Euch nur ein kleines Problem "Wetten das"
20.06.2006 12:17:29
Muckel
wie muss der Code aussehen wenn es nicht nur für "Tabelle1", sondern für die ganze Arbeitsmappe klappen soll?
Danke für einen Tip.
Sub Workbook_Open()
Sheets("Tabelle1").Protect UserInterfaceOnly:=True
Sheets("Tabelle1").EnableOutlining = True ' Für Gliederung
Sheets("Tabelle1").EnableAutoFilter = True ' Für AutoFilter
End Sub