Blattschutz Passwortabfrage
17.04.2002 10:15:22
Fitz Andreas
Ich habe aber das Problem, das der Blattschutz ohne das Passwort abzufragen aufgehoben wird.
Weiss jemand weshalb ?
Sub AlleBlaetterSchuetzen()
For Each shBlatt _
In ActiveWorkbook.Sheets
shBlatt.Protect _
Password:="3769", _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True
Next
End Sub
Sub AlleBlaetterEntschuetzen()
For Each shBlatt _
In ActiveWorkbook.Sheets
shBlatt.Unprotect _
Password:="3769"
Next
End Sub