Blattschutz aufheben (sheet-Wechsel)
23.12.2020 14:19:24
Ulrich
ich habe eine kurze Frage
Mit folgendem Code hebe ich den Blattschutz aller Arbeitsblätter auf.
Seltsamer weise springt er dann auf das letzte Tabellenblatt.
Weiß jemand wie ich das unterbinden kann?
Danke für eure Hilfe.
Gruß Ulli
Sub AlleFreilegen()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
Blatt.Unprotect ("schutz")
Next Blatt
End Sub
Anzeige