Hi - using RDB6 http://www.rondebruin.nl/copy6.htm in 2003.

I would like to save as read only, how do I modify the save command below to
do this?

TIA,
Anders

'Change all cells in the worksheet to values if you want
If Destwb.Sheets(1).ProtectContents = False Then
With Destwb.Sheets(1).UsedRange
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
.Cells(1).Select
End With
Application.CutCopyMode = False
End If


'Save the new workbook and close it
With Destwb
.SaveAs FolderName _
& "\" & Destwb.Sheets(1).Name & FileExtStr, _
FileFormat:=FileFormatNum
.Close False
End With

End If

You can save as readonly (give a password to modify).
You can save as readonly recommended without a password.
Or you can change the file's attribute to readonly.

If you want either of the first two, record a macro when you do it manually:
File|SaveAs|Tools|General options.

If you want the last, look at SetAttr in VBA's help.



Anders wrote:

Hi - using RDB6 http://www.rondebruin.nl/copy6.htm in 2003.

I would like to save as read only, how do I modify the save command below to
do this?

TIA,
Anders

'Change all cells in the worksheet to values if you want
If Destwb.Sheets(1).ProtectContents = False Then
With Destwb.Sheets(1).UsedRange
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
.Cells(1).Select
End With
Application.CutCopyMode = False
End If

'Save the new workbook and close it
With Destwb
.SaveAs FolderName _
& "\" & Destwb.Sheets(1).Name & FileExtStr, _
FileFormat:=FileFormatNum
.Close False
End With

End If

--

Dave Peterson