Gliederung und Blattschutz aller Sheets
07.07.2003 11:10:52
Kirsten
Habe schon im Archiv gesucht, aber keine wirklich passende Lösung gefunden.
Mit diesem Makro aus dem Archiv
Sub Workbook_Open()
Sheets("Tabelle7").Protect UserInterfaceOnly:=True
Sheets("Tabelle7").EnableOutlining = True ' Für Gliederung
Sheets("Tabelle7").EnableAutoFilter = True ' Für AutoFilter
End Sub
kann ich ja trotz Blattschutz mit der Gliederung arbeiten.
Muss ich jetzt jedes Sheet meiner Arbeitsmappe explizit benennen, oder gibt es da eine elegantere Lösung damit dieser Code in allen Sheets funktioniert?
Bin immer noch nicht der VBA-Könner und von daher für jeden Hinweis dankbar.
Gruss
Kirsten