Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
632to636
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Diagram drucken, trotz Zellenschutz

Diagram drucken, trotz Zellenschutz
05.07.2005 21:33:47
stefano
hallo Leute,
ich brauche wieder euere Hilfe,,
Wieshalb, bekomme ich bei geshutzten Zellen wenn ich will ein Diagramm per klick drucken auf das Butonn (Makro aufgezeichnet), immerwieder diese Fehlermeldung:
Laufzeitfehler '1004'
Die Activate Methode des Chartobjects-Objektes könnte nicht ausgeführt werden?
Wenn ich das Zellenschutz rausnehmen,dann funkiniert alles.
siehe Beispiel
https://www.herber.de/bbs/user/24493.xls
Besten Dank in voraus
stefano

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagram drucken, trotz Zellenschutz
06.07.2005 09:49:21
serge
Hallo Stefano
probiere es mit

Sub statiausdrucken()
ActiveSheet.Unprotect
ActiveWindow.SmallScroll Down:=6
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Serge
AW: Diagram drucken, trotz Zellenschutz
06.07.2005 14:14:42
stefano
hallo Serge,
zuerst danke für dein Antwort, ich habe versucht aber bei drucken wird passwort Fenster angezeigt, ich gebe das Passwort ein und dann kommt diese Fehlermeldung:
Laufzeitfehler '1004'
Anwendungs-oder Object definierter Fehlerst
Kannst Du mir wieter Helfen
Danke + Gruss
stefano
Anzeige
AW: Diagram drucken, trotz Zellenschutz
06.07.2005 18:03:58
serge
Hallo Stefano
vielleicht mit
Sub statiausdrucken()
ActiveSheet.Unprotect password:="xx" (xx = dein Password!)
ActiveWindow.SmallScroll Down:=6
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.Protect password:="xx", DrawingObjects:=True, Contents:=True,
Scenarios:=True
Serge

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige