strFile = "Archived Copy" & " " & "as of" & " " & _
DateString & ".xls"

Sourcewb.SaveAs Filename:=FolderName & "\" & strFile, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=True

'Set password if you need.

If this post helps click Yes
---------------
Jacob Skaria


"Anders" wrote:

Hi - xl 03, rdb 6 (modified to save entire workbook)

I use the code below to save the entire workbook modified from rdb 6 copy
code. I've inserted the following savecopyas to accopmlish, but would like
it to be read only and can't figure out throug the help to do this.

TIA,
Anders

Sourcewb.SaveCopyAs (FolderName _
& "\" & "Archived Copy" & " " & "as of" & " " &
DateString & ".xls")