Office: Blattschutz aus/einschalten und Bild verändern

Hallo,
ich habe folgendes Makro verwendet:

Private Sub cmdEinfügen2_Click()

Sheets("Bearbeitungsprotokoll").Unprotect "Passwort"
Dim Path As String
Dim pic As Picture
Path = Application.Dialogs(xlDialogInsertPicture).Show
If Path = True Then
Set pic = ActiveSheet.Pictures(ActiveSheet.Pictures.Count)
With pic
.Left = Range("J12").Left
End With
End If
Sheets("Bearbeitungsprotokoll").Protect "passwort"

End Sub

Hier kann ich ein Bild in eine bestimmte Zelle einfügen. Damit ich den Blattschutz verwenden kann. Hebe ich den im Makro auf, dann füge ich das Bild ein und schalte den Blattschutz wieder ein.
Die Zelle in die das Bild eingefügt wird ist nicht gesperrt. Der haken in den eigenschaften ist nicht gesetzt.

Nun meine Frage:
Wie kann ich dann bei eingeschalteten Blattschutz die Größe des Bilds noch anpassen?

Gruß Andy

 

Hallo Andy,

ich vermute beim Schutz mußt Du die Bearbeitung von Objekten zulassen.

Gruß Hajo

 

Hallo Hajo,
hab ich angewählt. das muss man machen, damit man überhaupt etwas einfügen kann. Hab das schon für ein anderes makro gebraucht (einfügen von Objekten als symbol),
Gruß Andy

 

Hallo Andy,

ist das Problem also gelöst. Klasse.

Gruß Hajo

 

Hallo Hajo,
nein, das Problem ist nicht gelöst. Erst hatte ich nur das einfügen von Bildern im Makro und alles war gut. Dann hatte ich den Blattschutz eingeschaltet und es ging nichts mehr. Ich bekam die Meldung, dass dieser Befehl nicht ausgeführt werden kann solange der Blattschutz aktiv ist.
Danach hab ich "unprotect" und "protect" ins makro eingefügt.
Das bild ist nun drin, aber wenn es größer als das dafür vorgesehene Feld ist, dann kann ich es nicht mehr kleiner machen weil es eben auch gleich gesperrt ist.

ich denke es gibt 3 möglichkeiten:
1. man kann irgendwie das bild ungesperrt einfügen, also beim einfügen mit makro gleich als entsperrt markieren.
2. Man kann das Bild auf eine range zb. Zeile 6 -16 in der höhe automatisch verkleinern, Seitenverhältnis für die Breite beibehalten und in einer range von spalte A-D zentrieren.
odert
3. es gibt einen befehl der es erlaubt trotz sperrung, eingefügte Bilder in der Größe zu verändern

Ich bin leider überhaupt kein VBA spezialist.
Gruß Andy

 

Halo Andy,

ich interpretiere es jetzt mal so Du möchtest meinen Vorschlag nicht umsetzen.
Gut ic habe das Problem auch nicht.
Den Beiträg wähle ich jetzt ab.

Gruß Hjao

 

Hi Andy,

zeichne den Code auf, wie du den Blattschutz setzt und verwende ihn anstelle der Zeile

Code:

Sheets("Bearbeitungsprotokoll").Protect "passwort" 

Bis später,
Karin

 

Hallo Hajo,
du hast mich missverstanden. Ich hatte den Haken bei bearbeiten von objekten zulassen bereits gesetzt.

Nochmal anders formuliert:
Dein Vorschlag war bei mir bereits umgesetzt und ich habe das Problem aber trotzdem.

Ich bin happy wenn mir jemand helfen kann und werde natürlich auch alles probieren.


Hallo Karin,
ich verstehe deinen beitrag nicht ganz? Kann du das nochmal anders beschreiben? Was meinst du mit zeichnen?
Gruß Andy

 

Hi Andy,

nicht "zeichnen" sondern "aufzeichnen" mit dem Makrorekorder.

Dein jetziger Code setzt den Blattschutz so, dass Objekte nicht bearbeitet werden können.

Bis später,
Karin

 

Hallo Karin,

super tip. Das aufnehmen hat funktioniert.

Das ist der Code:

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True


jetzt muss ich da nur noch das passwort irgendwo rein bekommen. Das wird nämlich beim ausführen des Makros entfernt. Hinter Protect gehts nicht und am ende auch nicht. Vielleicht hab ich auch en zeichen vergessen. Hast du ne idee?

Gruß Andy

 

Hi Andy,

hast du schon mal die VBA-Hilfe konsultiert?

Bis später,
Karin

 

Hallo Karin,
habs geschafft, dank deiner Hilfe. Hab noch mit einem , versucht und es ging.
Vielen Dank
lg Andy