Add Password Using Access

[Guest]

I am try to add a password to an exported spreadsheet programmatically using
MS Access. I borrowed this code from another program and it works perpectly
except, it requires the user to enter YES to save the document.

How can I modify this code to prevent having to answer Yes to the save
changes question.

Code:
strCompleteExcelName = DestinationFolder & ExcelFileName
Set app = New Excel.Application
Set wbk = app.Workbooks.Open(FileName:=strCompleteExcelName)

With wbk

.SaveAs FileName:=DestinationFolder & ExcelFileName & ".xls", _
WriteResPassword:=ReadOnlyPassword

.Close
End With
Set wbk = Nothing

' Shut down the Excel connection.
app.Quit
Set app = Nothing

Thank you

Ross

 

[Guest]

Try perhaps

..close false

Wolf