VBA-Code erweitern / Blattschutz
11.04.2005 11:52:01
Sascha
ich habe folgendes VBA-Makro:
Sub AlleBlaetterSchuetzen()
For Each Blatt _
In ActiveWorkbook.Sheets
Blatt.Protect _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True
Next
End Sub
Wie kann dieser Code erweitert werden, dass pro Blatt ein Kennwort eingegeben werden muss? Mit diesem Code werden zwar mehrere Blätter einer Arbeitsmappe geschützt, jedoch ohne Kennwort und es muss dringend ein Kennwort hinterlegt werden.
Weiss jemand Rat?
Danke
Sascha
Anzeige