Herbers Excel-Forum - das Archiv

Bild einfügen trotz Schreibschutz

Bild

Betrifft: Bild einfügen trotz Schreibschutz
von: Murdin

Geschrieben am: 04.01.2007 14:33:45
Hallo zusammen,
gibt es eine Möglichkeit den Schreibschutz so zu aktivieren, dass Bilder noch einfügbar sind.
Vielen Dank im Voraus.
Gruß Murdin
Bild

Betrifft: AW: Bild einfügen trotz Schreibschutz
von: ChrisL

Geschrieben am: 04.01.2007 15:14:30
Hallo Murdin
Ich weiss nicht genau wie es in Excel XP aussieht (arbeite gerade mit XL97). Jedenfalls kannst du den Schutz für "Objekte" deaktivieren. Mittels Menü Einfügen, Objekt, Von Datei erstellen, kannst du dann Bilder als Objekte einfügen.
Gruss
Chris
Bild

Betrifft: AW: Bild einfügen trotz Schreibschutz
von: Hubert
Geschrieben am: 04.01.2007 15:23:11
Hi,
nur, wenn du die Bilder mittels VBA einfügst, von Hand gehts nicht.
mfg Hubert
Bild

Betrifft: AW: Bild einfügen trotz Schreibschutz
von: Murdin
Geschrieben am: 04.01.2007 15:45:35
Hallo ChrisL,
als Objekt funktioniert es, jedoch sollte es als Grafik eingefügt werden können, da dies bereits schon so geschult wurde.
Hallo Hubert,
kannst Du mir evtl ein Tip geben wie ich es über VBA machen kann???
Danke + Gruß
Murdin
Bild

Betrifft: AW: Bild einfügen trotz Schreibschutz
von: Hubert
Geschrieben am: 04.01.2007 15:50:13
Hi,
Sub til()
ActiveSheet.Unprotect "xxx"
Application.Dialogs(342).Show
ActiveSheet.Protect "xxx"
End Sub

mfg Hubert
Bild

Betrifft: AW: Bild einfügen trotz Schreibschutz
von: Murdin
Geschrieben am: 04.01.2007 16:27:24
Klappt 1A. Vielen Dank Hubert.
Gruß Murdin
Bild

Betrifft: AW: Bild einfügen trotz Schreibschutz
von: Murat Dincer

Geschrieben am: 04.01.2007 16:51:55
Hallo Hubert,
hab nochmal eine Frage zu deinem Code:
Sub til()
ActiveSheet.Unprotect "xxx"
Application.Dialogs(342).Show
ActiveSheet.Protect "xxx"
End Sub

Ist es möglich den Schreibschutz auch beschränkt wieder zu aktivieren, also es sollen zb. die Objekte nicht schreibgeschützt werden.
Bild

Betrifft: AW: Bild einfügen trotz Schreibschutz
von: Hubert
Geschrieben am: 04.01.2007 16:55:59
Hi,
ActiveSheet.Protect Contents:= True, DrawingObjects:=False, Password:="xxx"
mfg Hubert
Bild

Betrifft: AW: Bild einfügen trotz Schreibschutz
von: Murat Dincer
Geschrieben am: 04.01.2007 17:06:36
Genial. Danke nochmal.
 Bild