Hallo Leut ich brauch da mal eine hilfe.
Mein Blatt hat einen autofilter integriert und zwar nur die Spalte "A", welcher nach manuellen "Blatt schützen" - "Benutzer darf Autofilterverwenden" noch immer funktioniert.
Wenn ich aber dann mit meinem Makro neue einträge hinzufüge (Blattschutz wird aufgelöst, makros werden durchgeführt, Blattschutz wird wieder aktiviert) sperrt er mir den zugriff auf die Spalte A1 (wo der Autofilter sitzt), wird aber angezeigt.
Habt ihr da einelösung? Ich glaube das hier der code rein gehört wo er beim blatt schutz aktivieren auch den code erneut aktiviert oder?
If ActiveSheet.ProtectContents Then
ActiveSheet.Unprotect "1234"
Columns("A:E").Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveSheet.Protect "1234"
End If
|