Private Sub Workbook_open()
ActiveWorkbook.Sheets("Dashboard").Protect Password:="Test"
ActiveSheet.Protect userinterfaceonly:=True, Password:="Test" ' Blattschutz für _
Autofilter und Gliederung aufgehoben
ActiveSheet.EnableOutlining = True ' für Gliederung
ActiveSheet.EnableAutoFilter = True ' für Autofilter
End Sub
Gruß Marco