folgendes:
Private Sub Workbook_Open()
ActiveWindow.Zoom = 90
ActiveWorkbook.UnProtect
Sheets(1).Range("A2:J2").AutoFilter
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
ActiveWorkbook.Protect
End Sub
Wenn ich das abspeichere und das file öffne funktionierts. Wenn ich jetzt wieder save und es dann öffne dann gehts nicht. Wenn ich es wiederum save und dann öffne gehts wieder usw.
Wo ist das Problem?