Filter trotz Blattschutz
26.05.2020 11:18:07
MarC
ich möchte meine Benutzeroberfläche schützen und die Filter in meiner Tabelle trotzdem benutzen. Leider will es mit dem unten aufgeführten Code nicht so ganz funktionieren. Ich kann die Filter zwar anklicken und was auswählen aber es passiert nichts =D.
Woran könnte das denn liegen?
Sub WriteProtectionOn()
Sheets("Overview").Protect UserInterfaceOnly:=True, Password:="x", AllowFormattingCells:= _
True, Contents:=True, Scenarios:=True
Sheets("Overview").EnableAutoFilter = True
Sheets("Overview").EnableOutlining = True
Sheets("Overview").EnableSelection = xlUnlockedCells
End Sub