Mit VBA Grafiken sperren
22.07.2013 20:25:20
Raphael
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
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