Makro läuft nicht mit Blattschutz
Wolfango
untenstehndes Makro funktioniert leider nicht, wenn die Tabelle mit einem Kennwort geschützt wird.
Es ist doch bestimmt irgendwie möglich das Aufheben des (kennwortgeschützten) Blattschutzes sowie das anschließende Wiederherstellen des (kennwortgeschützten) Blattschutzes in das Makro zu integrieren?
Oder aber gibt es die Möglichkeit das Makro so zu verändern, dass es auch mit Blattschutz arbeitet?
Danke vorab!
Gruß,
Wo.
Sub Filtern_nach_Jahren()
Dim Kriterium As String
Kriterium = InputBox("Filtern nach (enthält)", "Filtereingabe")
Selection.AutoFilter Field:=11, Criteria1:="=*" & Kriterium & "*"
ActiveWindow.LargeScroll Down:=-2000
End Sub