Private
Sub
Workbook_Open()
Dim
wks
As
Worksheet
For
Each
wks
In
ThisWorkbook.Worksheets
Select
Case
wks.CodeName
Case
"Tabelle1"
,
"Tabelle2"
, <strong>
"Sheet1"
,
"Sheet2"
</strong>
Case
Else
wks.Protect userinterfaceonly:=
True
, Password:=
"1907"
wks.EnableOutlining =
True
End
Select
Next
End
Sub