Troubles with Excel in VB6. 1

[elmorro]

I have written an ap in VB6 that opens up an Excel spreadsheet as read only, because I don't want anyone to overwrite the file. I also don't want anyone to use the Save As feature to save the file somewhere else. Is there a way to lock the file or just prevent the users from using the Save As feature?

Here is the code I have so far:

Dim objQuote As Excel.Application
Dim objWorkBook As Excel.Workbook
Dim objWorkSheet As Excel.Worksheet
Set objQuote = New Excel.Application
Set objWorkBook = objQuote.Workbooks.Open("C:\File1.xls", , True)
objQuote.Visible = True

Thanks in advance,
elmorro

 

[ADoozer]

its a bit of a hack, but you could try.

Dim WithEvents objQuote As Excel.Application
Dim objWorkBook As Excel.Workbook
Dim objWorkSheet As Excel.Worksheet

Private Sub OpenFile()
Set objQuote = New Excel.Application
Set objWorkBook = objQuote.Workbooks.Open("C:\File1.xls", , True)
objQuote.Visible = True
end sub

Private Sub objQuote_WorkbookBeforeSave(ByVal Wb As Excel.Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = True
End Sub

good luck

If somethings hard to do, its not worth doing - Homer Simpson

too much 49374'ing, im 57005... need 12648430

 

[elmorro]

ADoozer,
Thanks for your feedback. I will try it and see how it goes.

elmorro