save file as read only

[danclemson]

Hi,

Is there a way to save the xls file as read-only format, using VB?

Thanks /dan

 

[Juan Pablo González]

There's a function in VBA, called

SetAttr(PathName as String,Attributes as VbFileAttribute)

which you can use to set the attributes to a file (It has to be closed, if I'm correct)

 

[Nimrod]

Yes there is : ReadOnlyRecommended:=True

code example

ActiveWorkbook.SaveAs Filename:="C:Book1.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=True, CreateBackup:=False

This one is an easy one to find out... just start your macro recorder, save a file and you will get the code needed.

 

[Juan Pablo González]

Nimrod, that only "suggests" the user to open it as read-only, they still can say, "no", to open it normally !

 

[thijs]

Click right on the file name and choose "read only"

 

[jryan15]

i am also trying to use vba to save a file as read only. is there another method beyond the two listed?

1. set file attributes
problem - i'll have to save the file to the new name, close the file, set it to read only, reopen the file, and then close the active workbook.

2. set readonlyrecommeded attribute
problem - this will still let someone open the file as read only...

 

[StewartCooke]

Save

Hi

I've also been trying to save a file as read only. I currently have a macro which range values the data in a master file, and saves the file down in a location that the recipients can access. The problem I had was that sometimes a user was already in the (range valued) file, and my save macro falls over when attempting to save with the same name.

The only way I've managed to get round this is to save the file with a read/write protect password (via a macro).

Not ideal, but it works. Hope this helps. See below.

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:="S:\Report\0708\DailySales\SaveTest.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="test", _
ReadOnlyRecommended:=False, CreateBackup:=False

 

[Lotus Cars]

Hi all,

Just bumping this up, as I have a similar problem, and wondered if anyone knew of a better way than suggested with the WriteResPassword suggestion, which does work, but I don't really want to password protect the file.

Any ideas would, as always, be gladly accepted.

Cheers,

Lotus Cars