Exceldatei mit Schreibschutz sichern

[Pruemm]

Hallo,

ich möchte eine Excel2000 Arbeitsmappe mit Schreibschutz aber ohne Passwort
aus VFP7 sichern.
LOCAL oExcel as Excel.Application.9
LOCAL exfilename as String

exfilename="F:\Auswertungen\ProjektStatus"

oExcel=CREATEOBJECT("Excel.Application.9")
oExcel.WindowState= -4140 && xlMinimized
oExcel.Visible= .T.
oExcel.DisplayAlerts= .F.
oExcel.Workbooks.add
oExcel.sheets(1).select

&& Ab hier werden jetzt Werte aus einer DBF in die Zellen gesetzt

danach will ich mit Schreibschutz speichern!?

oExcel.ActiveWorkbook.SaveAs(exfilename,,,,.T.)
oExcel.Quit
release oExcel

funktioniert leider nur ohne Schreibschutz?
Weiß jemand wie die SaveAs Zeile richtig lauten muß?

Danke
Charly Pruemm
--------------------------------------------------------------------
KHP-Organisationsberatung
-Projektmanagement & Softwareentwicklung-
Marienstr. 4
D-63110 Rodgau

Tel. gesch.: 06106-61845
Tel. privat: 06106-16374
Fax: 06106-647698
Mobil: 0160-124-1173
E-Mail: KPR...@T-Online.de
-------------------------------------------------------------------

[Wolfgang Schmale]

Hallo Charly!
Ich würde die Datei/Datenblatt ganz normal abspeichern und danach die
Dateiattribute setzen
#DEFINE vbNormal 0 &&Normal (Voreinstellung).
#DEFINE vbReadOnly 1 &&Schreibgeschützt.
#DEFINE vbHidden 2 &&Versteckt.
#DEFINE vbSystem 4 &&Systemdatei.
#DEFINE vbArchive 32 &&Datei wurde seit dem letzten Speichern geändert.
oExcel.SetAttr ("TSTDATEI", vbHidden + vbReadOnly )

Ich weiß das ist irgendwie von hinten durchs Auge aber die Datei ist
schreibgeschützt und das nicht nur für Excel.

--

Mit freundliche Grüßen aus der Zigarrenstadt Bünde

Wolfgang

"Pruemm" <kpr...@t-online.de> schrieb im Newsbeitrag
news:OFzFROGxBHA.1884@tkmsftngp03...

[Hugo Tripold]

Habe einfach mal ein Makro aufgezeichnet und das Arbeitsblatt geschützt.
Makro sieht so aus.
Cells.Selec
ActiveWorkbook.Protect Structure:=True, Windows:=True

in Fox habe ich dann geschrieben:
oExcel.Cells.Select && alles selektierten
oExcel.ActiveWorkbook.Protect( 'Structure:=True, Windows:=True')
bringt zumindest keinen Fehler

Die Arbeitsmappe ist dann geschützt, aber beim Schutz aufheben
verlangt Excel komischerweise ein Passwort.

Die Frage ist was soll wirklich 'geschützt' werden soll?
Das Blatt schützen, also die eigentlichen Werte, funktioniert mit.
oExcel.Cells.Select && Achtung geschützt werden nur die selektierten Zellen
oExcel.ActiveSheet.Protect( 'DrawingObjects:=True, Contents:=True,
Scenarios:=True' )
Beim Blattschutzaufheben kommt keine Passwortfrage.

Das schützen in Excel hat ja mit dem speichern nichts zu tun.
Da geht's ja mehr um das Ganze DAU sicher zu machen.
Die Datei läßt sich ja mit anderen Editoren öffnen und bearbeiten,
auch wenn das Blatt geschützt ist.

Grüß
Hugo

"Pruemm" <kpr...@t-online.de> schrieb im Newsbeitrag
news:OFzFROGxBHA.1884@tkmsftngp03...