Ich habe Schwierigkeiten mit Excel Blattschutz (sheet protection) und AutoFiltern, die aktiv trotzdem bleiben sollen.
*Eigentlich* müßte es so funktionieren und ich habe auch daran gedacht, die AutoFilter über den gesamten Bereich herunterzuziehen.
Hier ist der fragliche Code:
____________________________________________________________
Dim i As Integer
For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name = "X" Or Sheets(i).Name = "Y" Then _
Sheets(i).EnableAutoFilter = True
Sheets(i).protect "Password", UserInterfaceOnly:=True
Next i
______________________________________________________
Hat jemand eine Idee, woran es liegen könnte? Es ist erstens dringend und zweitens hyperpeinlich, weil es erst rauskam, als die Dateien schon ans Volk verteilt waren... :o/
Thx in advance!