Save file as Read-Only

Neal · May 16th, 2007, 06:43 AM

Hi,

I've created a '.csv' file using the stripped down VBA method below:

(File is strCSVFiles)

Code:

Dim intFileNum As Integer

On Error Resume Next
Close #intFileNum
intFileNum = FreeFile()
On Error GoTo 0

strLine = ""
Open strCSVFiles For Output As #intFileNum

On Error GoTo Leave_Sub
i = 1
Do While Len(Trim(.Cells(i, 1))) <> 0

    strLine = strLine & blah,blah,blah

    Print #intFileNum, Mid(strLine, 1)
    strLine = Empty
    i = i + 1
Loop
Close #intFileNum

[u]Question</u>
Is it also possible to save the same '.csv' file as read-only using VBA?

Thanks in advance,

Neal

A Northern Soul

Shasur · May 16th, 2007, 08:35 AM

Just include the following:

SetAttr "c:\sample.csv", vbReadOnly

It should work

Cheers
Shasur

http://www.vbadud.blogspot.com

Neal · May 17th, 2007, 03:35 AM

Thanks Shasur,

I appreciate your help. Looks to be working fine.

Neal

A Northern Soul