Save as read only

[csilabgirl]

Excel 2002

I have this code which is saving a workbook. I want it to save the workbook as read only, so that the next time it is opened it is read only. But all I have been able to do is a read only recommend, where the next time it is opened it asks the user if they want to open it in read only or not. I dont want them to have the option. What do I need to add to my code? Thank you for the help.


Sub SaveMarketing()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
Dim FileName As String<o></o>
FileName = Range("I3")<o></o>
MsgBox FileName<o></o>
ActiveWorkbook.SaveAs FileName:= _<o></o>
"\\Server\chromosomal labs\Immigration\RS_AMTC\" & FileName, FileFormat:= _<o></o>
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=True _<o></o>
, CreateBackup:=False<o></o>
<o></o>
End Sub

 

[xenou]

Try giving it a WriteResPassword and leaving out the ReadOnlyRecommended argument.

Note:
required reading now that we have Excel 2007/2010 alongside Excel 2003 in many work environments:
http://www.rondebruin.nl/saveas.htm

 

[pcc]

check out the SetAttr statement (VB help)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SetAttr Statement


Sets attribute information for a file.

Syntax

SetAttr pathname, attributes

The SetAttr statement syntax has these named arguments:

Part Description
pathname Required. String expression that specifies a file name — may include directory or folder, and drive.
attributes Required. Constant or numeric expression, whose sum specifies file attributes.



Settings

The attributes argument settings are:

Constant Value Description
vbNormal 0 Normal (default).
vbReadOnly 1 Read-only.
vbHidden 2 Hidden.
vbSystem 4 System file. Not available on the Macintosh.
vbArchive 32 File has changed since last backup.
vbAlias 64 Specified file name is an alias. Available only on the Macintosh.



Note These constants are specified by Visual Basic for Applications. The names can be used anywhere in your code in place of the actual values.

Remarks

A run-time error occurs if you try to set the attributes of an open file.

 

[csilabgirl]

The writerespassword should suffice, thank you