Dateiattribute per Makro
11.09.2002 11:09:42
Holger Meinert
Ich habe das unten aufgeführte Makro und möchte dieser Datei die
hier erzeugt wird das Dateiattribut "Schreibgeschütz" per Makro zuweisen.
Habt Ihre eine Idee?
Danke!
Sub DateiKopieren()
Dim Datei
Dim sicherung
Dim pfad_copy
Dim Today_DAT, z
Dim strVerzeichnis
z = "_"
Today_DAT = Range("B1") & z
Datei = "Tagesauswertung"
sicherung = Today_DAT & Datei & ".xls"
pfad_copy = "C:\kill\Neu\"
strVerzeichnis = pfad_copy & sicherung
ActiveWorkbook.SaveCopyAs strVerzeichnis
End Sub
Anzeige