SaveAs funktioniert nicht im geschützten VBA-Proj

Computer: Software & Programmierung Visual Basic
#1

Hallo,

Folgende Merkwürdigkeit in Excel 2003 VBA.
Ich möchte ein Tabellenblatt als Textdatei speichern. Das funktioniert auch einwandfrei mit dem Code:

...
xyDatei = "U:\...Dateien\" + Nummer + ".ABC" 
ActiveWorkbook.SaveAs Filename:=xyDatei, FileFormat:=xlTextPrinter, CreateBackup:=False
...

Nun habe ich den Code natürlich durch ein Passwort geschützt.
Und zu meinem Entsetzen funktioniert es nun nicht mehr mit der Fehlermeldung:
Laufzeitfehler ‚1004‘:
Die Methode ‚SaveAs‘ für das Objekt ‚_Workbook‘ ist fehlgeschlagen.
Ich kann mir das nicht erklären und wäre Euch für Eure Hilfe sehr dankbar.
Gruß
Arnold

#2

xyDatei = „U:…Dateien“ + Nummer + „.ABC“
ActiveWorkbook.SaveAs Filename:=xyDatei,
FileFormat:=xlTextPrinter, CreateBackup:=False
Nun habe ich den Code natürlich durch ein Passwort geschützt.
Und zu meinem Entsetzen funktioniert es nun nicht mehr mit der
Fehlermeldung:
Laufzeitfehler ‚1004‘:
Die Methode ‚SaveAs‘ für das Objekt ‚_Workbook‘ ist
fehlgeschlagen.

Hallo Arnold,

was wird angezeigt bei

Sub nn()
MsgBox Dir(„U:…Dateien/nul“)
End Sub

Gruß
Reinhard

#3

Hallo Reinhard,

Danke für Deine schnelle Rückmeldung.

Bei Ausführung des von Dir angegebenen Codes erscheint nur eine leere MsgBox.

Arnold

#4

Bei Ausführung des von Dir angegebenen Codes erscheint nur
eine leere MsgBox.

Hallo Arnold,

dann existiert das Verzeichnis nicht.

Gruß
Reinhard

#5

Hallo Reinhard,

Habe auch mal mit die Pfadangaben zwischen UNC und anderen Angaben gewechselt.Bei der „normalen“ Variante meldet die MsgBox nul
Der Pfad existiert aber. Ohne den Passwordschutz bei den Projekteigenschaften klappt´s ja auch! Es liegt also irgendwie an dem Passwortschutz.

Gruß
Arnold

#6

Habe auch mal mit die Pfadangaben zwischen UNC und anderen
Angaben gewechselt.Bei der „normalen“ Variante meldet die
MsgBox nul
Der Pfad existiert aber. Ohne den Passwordschutz bei den
Projekteigenschaften klappt´s ja auch! Es liegt also irgendwie
an dem Passwortschutz.

Hallo Arnold,

ich habe nur Excel97 auf einem Rechner mit WinXP.
Den Fehler kann ich nicht nachbauen.
Meine Mappe wird gespeichert, egal ob der Code geschützt ist oder nicht.

Da Excel die Mappe als Textdatei speichert, werden Makros in ihr sowieso nicht mitgespeichert.

Passiert das bei dir nur bei einer Mappe oder bei allen?
Ist da was verändert worden im Editor bei Extras–Optionen, z.B. bei jedem Fehler anhalten o.ä.?
Passiert das auch auf einem Fremdrechner mit XL2003.
Fehlen dir Rechte in dem UNC-Dingsbums?
Klappt das Speichern auf der lokalen Festplatte?

Sorry kann da nur wild rumraten.

Gruß
Reinhard

#7

Hallo Reinhard,

Ich habe nun auch schon alles ausprobiert - und keine Erklärung gefunden.
Allerdings eine Lösung:
Bei Worksheets(„ABC“).SaveAs… funktioniert´s auch mit Passwortschutz.
Da ja eh nur ein Blatt als Text gespeichert werden kann/soll reicht mir das.
Danke nochmal für Deine Hilfe

Gruß
Arnold

#8

Ich habe nun auch schon alles ausprobiert - und keine
Erklärung gefunden.
Allerdings eine Lösung:
Bei Worksheets(„ABC“).SaveAs… funktioniert´s auch mit
Passwortschutz.
Da ja eh nur ein Blatt als Text gespeichert werden kann/soll
reicht mir das.

Hallo Arnold,

aha, vielleicht kommt man so dahinter. Bei dir kann es andere Parameter für SaveAs geben als bei meinem XL97.

Aber auch hier ist die Syntax von SaveAs bei Workbook oder Worksheet unterschiedlich.
Schau mal in die Hilfe zu SaveAs und lese mal alles gründlich durch.

Gruß
Reinhard