Office: Versteckt Attribut setzen möglich?

Hallo

Kurze Frage zum Abspeichern einer Mappe. Ist es möglich in VBA das Attribut "versteckt" bereits beim Speichern einer Datei zu setzen. Es werden in meinem Formular neue Dateien erzeugt die dann gespeichert werden und über Hyperlink anwählbar sind. Diese werden zur Zeit immer im Explorer über die Dateieigenschaften versteckt damit kein driekter Zugriff darauf erfolgt.
Wäre toll wenn dies bereits beim speichern aus VBA möglich wäre aber ich habe in der Workbook.save Hilfe keinen Hinweis darauf gefunden.

Bisher sieht die Befehlszeile so aus

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Name

Gruss
Andreas

:)

 

HAllo Andreas

Schau mal ob du dich mit diesem Code anfreunden kannst....


Option Explicit

Public Sub test()
Dim FSO As Object
Set FSO = CreateObject("Scripting.Filesystemobject")
Dim Diese_Datei As Object
ThisWorkbook.SaveAs ThisWorkbook.FullName
Set Diese_Datei = FSO.getfile(ThisWorkbook.FullName)
Diese_Datei.Attributes = Diese_Datei.Attributes + 2
Set Diese_Datei = Nothing
Set FSO = Nothing
End Sub



ransi

 

Hi ransi,

komplizierter geht's nimmer?

Public Sub test()
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Name
SetAttr ThisWorkbook.Path & "\" & Name, vbHidden
End Sub

 

Hallo Nepumuk

Leider funktioniert die Methode nicht, wenn ich die Zeile

SetAttr ThisWorkbook.Path & "\" & Name, vbHidden

meinem Code hinzufüge, bricht mir das Makro an dieser Stelle mit
dem Fehler Datei nicht gefunden ab. Ich komme aber nicht dahinter
warum, die Datei wird unter dem korrekten Namen erstellt und abgespeichert
und der Befehl msgbox ThisWorkbook.Path & "\" & Name zeigt auch den korrekten Namen an.

Ich habe mal eine Testdatei die die gleiche Funktion ausführt beigefügt,
da die eigentliche Datei zu groß ist und aufgrund der enthaltenen Daten nicht eingestellt werden kann. Aber vom Prinzip her sind die beiden identisch nur das die Daten die hier abgefragt werden normal auf mehreren Blättern verteilt sind, zuvor mittels Userform eingegeben werden und das Makro aus einer anderen Mappe aufgerufen wird.

Gruß
Andreas

 

Hallo,

ich bin davon ausgegangen, dass in der Variablen Name (ganz schlecht, denn Name ist eine Eigenschaft fast aller Objekte in VB) auch die Dateiendung steht. Also dann so:

SetAttr ThisWorkbook.Path & "\" & Name & ".xls", vbHidden

 

Hallo Nepumuk

Danke für die Lösung, jetzt funktionierts. Und wieder etwas hinzugelernt, werde in Zukunft die Vergab von "Name" vermeiden.

Gruss
Andreas