ich habe ein kleines Problem mit einem Code der mir alle Tabellenblätter mit einmal den Blattschutz setzt.
Dies ist der Code:
Sub SchutzAn()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Sheets
wks.Protect Password:="xxx"
Next
End Sub
Dieser funktioniert auch tadellos aber ich brauche unbedingt diese Eigenschaft
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Also, ich möchte nicht, dass gesperrte Zellen angewählt werden können.
Ich habe die zwei Zellen vor "Next" eingesetzt, funktioniert aber nicht für alle Tabellenblätter.
Kann hier jemand helfen?
Gruß Korl