VBA to Open Sharepoint file in Edit Mode

[LONeill13]

Hello: I see this question has been asked, but not yet answered.

I am trying to write code to open a file on our sharepoint site, but I can't seem to get the code to work.

Here is the code I am using:

Private Sub UpdateFile(filepath As String)
Filename:="File Path/Report Name.xlsm"
    ActiveWorkbook.LockServerFile  'Edit Mode
End Sub

The error I get is Run-time Error '1004'
Method 'LockServerFile' of object' _Workbook' failed

Any assistance in helping me figure out how to get this to work would be appreciated.

 

[LONeill13]

OK...I've been playing around with this all morning and I think it's because the file that I'm opening from Sharepoint is opening in a new window as opposed to the same window? I recorded a macro of me manually opening the Sharepoint file ("SharepointFile.xlsm) while another workbook is open ("OpenedFile.xlsm"), and when I toggled between the two it activates window as opposed to workbook.

Sub Macro2()
'
' Macro2 Macro
'

'
    Workbooks.Open Filename:= _
        "http://sharepoint.com/sites/FilePath/Sharepoint File.xlsm"
    Windows("OpenedFile.xlsm").Activate
    Windows("Sharepoint File.xlsm").Activate
End Sub

Trying to figure out how to get the Sharepoint file to open up in the same window as the file that is already opened.