Vielleicht hat damit jemand Erfahrung ...
Danke für Eure Hilfe.
Birgit
Private Sub Workbook_Open()
With Worksheets("Tabelle1") 'Tabellenname anpassen !!
.Protect Password:="Dein Kennwort", UserInterfaceOnly:=True 'Kennwort anpassen !!
.EnableOutlining = True
End With
End Sub