Hallo Werner,
der Blattschutz wird gesetzt durch folgenden Code, der sich im Codemodul "DieseArbeitsmappe" befindet.
Sub Workbook_Open()
Dim i As Long
For i = 1 To Worksheets.Count
Sheets(i).Protect userinterfaceonly:=True' setzt Blattschutz
Sheets(i).EnableOutlining = True 'für Gliederung
Sheets(i).EnableAutoFilter = True 'für Autofilter
Next i
End Sub
Ob oder warum Du dieses Makro brauchst, entzieht sich allerdings meiner Kenntnis.
Kannst es ja mal deaktivieren, indem Du den Codezeilen ein Hochkomma ' voranstellst oder die fette Codezeile einfach löschst und testest ob sich Deine Datei noch richtig verhält.
Gruß
Rainer