excel automation

[randy_belcher]

can anyone tell me how to save an excel workbook so that I can open it with readwrite privilages, but only allow readonly access to others. I have tried the following code but get the error, file is write reserved, when trying to save the file for the second time. Thanks for the help.

 

'save the file

ExcelApp.Workbooks(1).SaveAs(strFileName, , , "sa", True, False, Excel.XlSaveAsAccessMode.xlShared, , , , )

 

'open the file

ExcelApp.Workbooks.Open(strFileName, , False, , , "sa", True, , , True, , , )

[randy_belcher]

i got it, here are the two statements that work

 

'to open

ExcelApp.Workbooks.Open(strFileName, , False, , , "sa", , , , , , , )

 

'to save

ExcelApp.Workbooks(1).SaveAs(strFileName, -4143, , "sa", False, False, , , , , )

 

-4143 is the value of xlnormal for fileformat