Microsoft Excel

Herbers Excel/VBA-Archiv

VB Script soll Exceltabelle mit Schreibschutz öffn | Herbers Excel-Forum


Betrifft: VB Script soll Exceltabelle mit Schreibschutz öffn von: Heinz Schikorra
Geschrieben am: 23.11.2009 14:10:03

Hallo Ihr Wissenden,
ich versuche mit VBS (nicht VBA!) ein Excelsheet zu öffnen. Problem ist, daß die Exceltabelle einen Schreibschutz hat und ich den Schreibschutzdialog nicht mit sendkeys geschlossen bekomme.

dim objExcel
Set objExcel= createobject ("Excel.Application")
objExcel.visible = true

objExcel.Workbooks.Open("test.xls")
objExcel.sendkeys "{ENTER}", true
objExcel.Sheets("Blatt1").select
gn_1 = objExcel.Cells(8,1)
...

Excel erscheint korrekt mit der Tabelle, aber immer mit dem Schreibschutzdialog, den ich ja eigentlich mit sendkeys mit Enter schließen möchte (ich benötige das Excelsheet nur für lesenden Zugriff)

Hat jemand eine Idee?

Danke im vorraus für Hilfe!

Heinz

  

Betrifft: AW: VB Script soll Exceltabelle mit Schreibschutz öffn von: Tino
Geschrieben am: 23.11.2009 14:28:09

Hallo,
übergibt beim öffnen die Passwörter, öffne aber schreibgeschützt.

objExcel.Workbooks.Open "test.xls", ReadOnly:=True, Password:="xxx", WriteResPassword:="xxx"

(siehe auch in der VBA Hilfe)

Gruß Tino


  

Betrifft: AW: VB Script soll Exceltabelle mit Schreibschutz öffn von: Heinz Schikorra
Geschrieben am: 23.11.2009 15:42:31

Danke für Hilfe.

MfG,

Heinz


  

Betrifft: AW: VB Script soll Exceltabelle mit Schreibschutz öffn von: Luschi
Geschrieben am: 23.11.2009 14:30:56

Hallo Heinz,

mach es so:

objExcel.Workbooks.Open "test.xls",,true

Gruß von Luschi
aus klein-Paris


  

Betrifft: AW: VB Script soll Exceltabelle mit Schreibschutz öffn von: Heinz Schikorra
Geschrieben am: 23.11.2009 15:39:56

Danke für Hilfe!
MfG Heinz


Beiträge aus den Excel-Beispielen zum Thema "VB Script soll Exceltabelle mit Schreibschutz öffn"