Supportnet / Forum / Tabellenkalkulation

Hallo! Ueber ein Makro speichere ich automatisch eine Kopie einer Datei zur Info im Netz. [code] Sub ciao() ActiveWorkbook.Save Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:= _ "G:\300 Times\360 TLA5\info.xls", FileFormat:=xlNormal _ , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False If Application.Workbooks.Count <= 2 Then Application.Quit Else ActiveWorkbook.Close End If End Sub [/code] Ich moechte jetzt gerne die Datei mit Schreibschutz versehen, damit keiner etwas aendert. wenn ich aber ein Password vergebe, [code]WriteResPassword:="Sahnehaeubchen"[/code] funktioniert das Makro das naechste Mal nicht mehr, weil eben schreibgeschuetzt. Hat jemand eine Loesung fuer mich? Vielen Dank und Gruesse Thomas

Hallo Thomas,

ich glaube, die SaveCopyAs-Methode könnte Dir helfen. Damit erstellst Du nämlich - im Unterschied zu Deiner jetzigen Vorgehensweise - wirklich eine Kopie.

SaveCopyAs-Methode

Speichert eine Kopie der Arbeitsmappe in einer Datei, ändert aber nicht die geöffnete Arbeitsmappe im Speicher.

Ausdruck.SaveCopyAs(Filename)

Ausdruck Erforderlich. Ein Ausdruck, der ein Workbook-Objekt zurückgibt.

Filename Erforderlich. Gibt den Dateinamen für die Kopie an.

Gruß,
CaroS

Hallo Caro,
vielen Dank. Ich habe jetzt umgestellt auf SaveCopyAs. War aber bisher kein Problem, da ich ja anschliessend die Datei gleich geschlossen habe.

Gibt es einen Befehl, mit dem ich die Datei aufrufen kann und gleich das Schreibschutzpasswort mitgeben kann. Z..B. in der Form

excel.exe path://info.xls -passwort="x"

oder so?

VGT

• Sicherungskopie immer als "versteckt" abspeichern
• Excel Makro erscheint nicht in Makroliste
• Erstellung einer Grafik via Makro
• Mittels Makro Excel-Datei speichern
• Mittels Makro Dokument speichern