VBA open xls as Read-Only?
 

I open an xls and insert value to it from VBA. However, the xls is opened as
read-only, even though the code asked for none-read-only access. Btw, all the
samples I found are for opening a new xls then insert data, and I need to
open an existing xls.

Your help is appreciated!

Here is my calling code block: (m_objExcel is declared as New cExcel)
Private Sub Command1_Click()
m_objExcel.StartExcel True
m_objExcel.OpenWorkbook "V:\my Report.xls", True
€˜I can see the xls after last line is run, but the title says read-only
€˜the next line will insert value, but later it wouldnt save.
m_objExcel.InsertValue "L2", "20"
m_objExcel.CloseExcel

End Sub
Below are sub/functions from the sample code in class module.
Public Sub StartExcel(fVisible As Boolean)
' Comments : Starts an instance of Excel
' Parameters: fVisible - True to make Excel visible
€¦
m_objExcel.Visible = fVisible
€¦
End Sub

Public Function OpenWorkbook(strFileName As String, fReadOnly As Boolean, _
Optional varPassword As Variant) As Excel.Worksheet
' Comments : Opens the named file and associates it with the class
' Parameters: strFileName - full path and name of the file to open
' fReadOnly - True to open readonly

If Not IsMissing(varPassword) Then €¦
Else
Set m_objWorkbook = m_objExcel.Workbooks.Open(strFileName, , fReadOnly)
End If
€¦
End Function

VBA open xls as Read-Only?
 

Admin,
Please remove this and the other one that dosn't have a reply associated
with it.
Sorry I did not mean to double post. I got the server error message when I
clicked post, so I tried couple more times, and they all made it.

"hommer" wrote:

I open an xls and insert value to it from VBA. However, the xls is opened as
read-only, even though the code asked for none-read-only access. Btw, all the
samples I found are for opening a new xls then insert data, and I need to
open an existing xls.

Your help is appreciated!

Here is my calling code block: (m_objExcel is declared as New cExcel)
Private Sub Command1_Click()
m_objExcel.StartExcel True
m_objExcel.OpenWorkbook "V:\my Report.xls", True
€˜I can see the xls after last line is run, but the title says read-only
€˜the next line will insert value, but later it wouldnt save.
m_objExcel.InsertValue "L2", "20"
m_objExcel.CloseExcel

End Sub
Below are sub/functions from the sample code in class module.
Public Sub StartExcel(fVisible As Boolean)
' Comments : Starts an instance of Excel
' Parameters: fVisible - True to make Excel visible
€¦
m_objExcel.Visible = fVisible
€¦
End Sub

Public Function OpenWorkbook(strFileName As String, fReadOnly As Boolean, _
Optional varPassword As Variant) As Excel.Worksheet
' Comments : Opens the named file and associates it with the class
' Parameters: strFileName - full path and name of the file to open
' fReadOnly - True to open readonly

If Not IsMissing(varPassword) Then €¦
Else
Set m_objWorkbook = m_objExcel.Workbooks.Open(strFileName, , fReadOnly)
End If
€¦
End Function