ich kann zwar mittels VBA Code, die Grafiken Sperren bzw. entsperren.
Sub x()
For Each objShape In ActiveSheet.Shapes
'.Select
Selection.Locked = True
Next
End Sub
Allerdings hat dies keinen Einfluss auf die Bearbeitung in der Mappe.Sobald ich bei Protect DrawingObjects:=False setzte kann ich alles bearbeiten egal ob das Objekt gesperrt ist oder nicht. Wenn ich es auf True setzte kann ich gar nichts bearbeiten.
Ich vergebe Berechtigungen nach Benutzer, und die einen sollen Grafiken einfügen und editieren können, die anderen nicht.
Geht das nicht? Muss ich über beim Blattschutz immer Nachfragen wer angemeldet ist und mit Select Case mal DrawingObjects:=False und True setzen oder gibt es eine andere Möglichkeit?
Gruess
Raphael