Makro für Blattschutz
Ingo
Ich habe hier ein Makro, welches erst den Blattschutz aufhebt
und dann die Tabelle nach der aktiven Spalte auswätzs sortiert:
Option Explicit
Public Sub sortieren_aufwaerts()
ActiveSheet.Unprotect
ActiveSheet.Range("A2:" & ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Address).Sort Key1:=Cells(2, ActiveCell.Column), Order1:=xlAscending
End Sub
Nun würde ich es aber gerne so haben,
dass das Makro vor dem Sortieren checkt,
ob der Blattschutz an oder aus ist.
Wenn er aus ist, soll sortiert werden und fertig :)
Der Blattschutz soll also auch dannach dann aus bleiben.
Wenn der Blattschutz aber an ist,
soll er erst ausgeschaltet werden.
Dann soll sortiert werden.
Und dann soll der Blattschutz wieder angeschaltet werden.
Letzendlich such ich also eine Makro-Lösung,
um vor irgendwelchen Aktionen (im obigen Beispiel das Sortieren)
den Blattschutz abzuschalten und dannach wieder anzuschalten
(aber nur, wenn er vorher auch an war.
Also der "Blattschutz-Zustand" soll sozusagen nach der Aktion
wieder der gleiche sein, der er vorher war.
Alles klar :))
Kann mir da jemand von Euch helfen ?
Das würde mich mal wieder tierisch freuen :)
Gruß aus Münster
Ingo Siemon