Blattschutz
14.11.2006 13:16:51
helena
habe ein kleines Problem, dieses MAcro läuft und schützt Blätter
wenn ich aber auf EXTRAS, BLATTSCHUTZ AUFHEBEN gehe kann ich ohne
PASSWORD-Abfrage Blätter öffnen !!!
Sub blattschutz_alle_ein()
Dim wss As Worksheet
For Each wss In ActiveWorkbook.Worksheets
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
wss.Protect Password:="xxx"
Next wss
End Sub
DANKE für INFO
gruss helena