Hello,

I'm using VB6 and I created a project (EXE-file) to test this code.

With the project - references - excel library turned on, this code
runs just fine, but without it on, I get Error 1004.




Dim xlapp As Object
Private Sub Form_Load()

If xlapp Is Nothing Then
Set xlapp = CreateObject("Excel.Application")
Else
Set xlapp = GetObject(, "Excel.Application")
End If

xlapp.Visible = True
excelfile = "c:\filename.xls"

xlapp.workbooks.Open FileName:=excelfile, ReadOnly:=True
If xlapp.ActiveWorkbook.ReadOnly = True Then
xlapp.ActiveWorkbook.ChangeFileAccess xlReadWrite
Else
xlapp.ActiveWorkbook.ChangeFileAccess xlReadOnly
End If


End Sub


does anyone know how to tackle this problem?

Kind regards,

JJ