Blätter schützen über CommandButton?
14.03.2004 16:44:11
Sascha
Mit einem CommandButton kann ich alle Blätter meiner Mappe auf einmal schützen (Dank dieses super Forums). Allerding kann ich die gesperrten Zellen immer noch auswählen. Was muß noch verändert werden?
Private Sub CommandButton2_Click()
Sh = Sheets.Count
For i = 1 To Sh
Sheets(i).Protect ("Schutz"), DrawingObjects:=True, Contents:=True, Scenarios:=True
Next i
End Sub
Vielen Dank für die Hilfe!
mfg
Sascha