Hi,

I have used the following VBA code to save selected ("a1:L45") data to
a csv file.

'---------------------------------
Dim Sh As Worksheet
Set Sh = ActiveSheet
Workbooks.Add Template:=xlWBATWorksheet
Sh.Range("a1:L45").Copy Destination:= _
ActiveWorkbook.Worksheets(1).Range("A1")
ActiveWorkbook.SaveAs Filename:="C:\files\vtew\1\uimw_at_" & _
Format(Now, "yyyy_mm_dd_hh_mm_ss") & ".csv", _
FileFormat:=xlCSV
ActiveWorkbook.Close SaveChanges:=False
'---------------------------------

I would like to ensure that after the file is saved,
the attributes of the file are changed such that:

1. It becomes READ-ONLY.
2. It cannot be deleted.

Please show me the VBA code that I can incorporate to the above to
accomplish this.

Thanks,
Luther


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/

"lothario" wrote in message
...

Hi,


I would like to ensure that after the file is saved,
the attributes of the file are changed such that:

1. It becomes READ-ONLY.
2. It cannot be deleted.

Please show me the VBA code that I can incorporate to the above to
accomplish this.

Thanks,
Luther

Does this help?

This example uses the SetAttr statement to set attributes for a file.

SetAttr "TESTFILE", vbHidden ' Set hidden attribute.
SetAttr "TESTFILE", vbHidden + vbReadOnly ' Set hidden and read-only
' attributes.