Geht doch kürzer...
15.02.2021 16:50:05
Dirk
ich habe folgenden Code:
Sub Blattschutz_ein()
Sheets("Blatt1").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Blatt2").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Blatt3").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Blatt4").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Das kann ich doch sicher mit einer einfachen Blattaufzählung machen, so dass ich die Schutzkriterien nur einmal nennen muss. War das etwas mit "With"...? ich stehe auf dem Schlauch.
Vielen Dank!!
Dirk