SaveAs Read Only

[PoggiPJ]

I have a large complex workbook containing many ranges of product line items. The line items consist of both unprotected (i.e. PartNumber, Quantity) and protected (i.e. price x quantity formula) cells.

Once the order is complete, I would like to offer the ability to save a completely Read Only copy that can be sent on for processing, where nothing, even the unprotected Part Number or Quantity cells, could be changed from that point on.

Using Excel 2003, is there a simple way to accomplish this for the entire workbook using a SaveAs Read Only or other option? Or, will I need to create a command button macro that specifically changes each line item's cell attributes to Protected?

 

[ali zaib]

Press "F12" on your key board and save where you want to save it

 

[VoG]

Try like this

Sub atest()
ActiveWorkbook.SaveCopyAs Filename:="C:\test.xlsm"
SetAttr "C:\test.xlsm", vbReadOnly
End Sub

 

[PoggiPJ]

Thank you VoG,
It runs through without error, but when I go to open the saved file I receive a "recommendation" to open as Read Only, with two options.

Yes) Open it as read-only: When I select this option, nothing is changed. I can still enter data into previously unprotected cells.

No) I don't want the user who receives this file to have this option. They need to receive an absolutely read only file.

I suspect that my worksheet handling macros that control protection are overriding the vbReadOnly attribute.