to open sharepoint file in edit mode

[janexcel]

Hi everyone,

I am very new in VBA and SharePoint.
I would like to force excel to open workbook from sharepoint in edit mode.

I tried the code below but it is not working all the time.

Private Sub Workbook_Open()
ActiveWorkbook.LockServerFile
End Sub

Sometimes I received the error message below:
Run-time error '-2147216126 (80041502)':
Automation error


I need this to work in order to continue with other Sub to make changes to the file and save them. I have to use macro to loop through 50 files to make the changes.

Any help will be mush appreciated.
Thanks!