kann mir bitte jemand helfen, wie ich meinen nachstehenden Code zum setzten eines Blattschutzes ändern muss. Es muss noch der Haken bei "Nicht gesperrte Zellen auswählen" herausgenommen werden. Soll heißen nach setzten des Blattschutzes darf der User ABSOLUT NIX MEHR.
Sub Schutz_rein()
Dim wks As Worksheet
For Each wks In Worksheets
wks.Protect Password:="vwn_suche", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next wks
End Sub
Danke Gruß
Claudi