show whos got an Excel file open (1 Viewer)

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
DoCmd.ShowToolbar "Ribbon", acToolbarNo
Dim location As String
Dim wbk As Workbook
location = "F:\Victoria Line\Bombardier\Maintenance\PLANNING DANNY AND LAWRENCE\KM run\Km  Forecast\Burst Report & Predict - MASTER.xlsx"
Set wbk = Workbooks.Open(location)
'Check to see if file is already open
If wbk.ReadOnly Then
  ActiveWorkbook.Close
    MsgBox “Burst Report file is open and mileage cannot be updated"
    GoTo CONTINUE:
End If
ActiveWorkbook.Close
DoCmd.SetWarnings False
On Error Resume Next
DoCmd.OpenQuery "kmnow_delete_qry"
On Error Resume Next
DoCmd.OpenQuery "kmnow_insert_qry"
On Error Resume Next
DoCmd.SetWarnings True

CONTINUE:
DoCmd.OpenForm FormName:="cal equip 2 form"
DoCmd.OpenForm FormName:="training_overdue"
End Sub

Public Function WhoHasLockMyFile(serverName As Variant, fileFullPath As String) As String

    Dim varServer, varFile, objFS, varFoundNone, objRes
    Dim FindPos As Long
    ' first, get the server name we want to work with
    varServer = serverName
    varFile = fileFullPath
    'varServer = InputBox("Server name to check")
    
    ' get the local path of the file to check
    
    'varFile = InputBox _
    '        ("Full path and filename of the file on the " & _
    '            "server (use the local path as if you were " & _
    '            "at the server console)")
    
    ' bind to the server’s file service
    'Set objFS = GetObject("WinNT://" & varServer & _
    '"/lanmanserver,fileservice")
    'Set objFS = GetObject("WinNT://" & varServer & _
    '"/lanmanserver.fileservice")
    Set objFS = GetObject("WinNT://" & varServer & _
    "/LanmanServer")
    
    ' scan through the open resources until we
    ' locate the file we want
    varFoundNone = True
    
    ' use a FOR...EACH loop to walk through the
    ' open resources
    For Each objRes In objFS.Resources
        ' does this resource match the
        ' one we’re looking for?
         If (Not objRes.User = "") And (Not right(objRes.User, 1) = "$") Then
        'If objRes.path = varFile Then
            ' we found the file - show who’s got it
                FindPos = InStr(1, objRes.path, varFile, 1)
                If FindPos <> 0 Then
            
                    varFoundNone = False
                    WhoHasLockMyFile = objRes.User
                    'MsgBox objRes.path & _
                    '    " is opened by " & objRes.User
                    Exit For
                End If
            End If
    Next
    ' if we didn’t find the file open, display a msg
    'If varFoundNone = True Then
    '        MsgBox "Didn’t find that file opened " & _
    '                "by anyone."
    'End If
    Set objRes = Nothing
    Set objFS = Nothing
End Function

...
...
Dim strUser As String
If wbk.ReadOnly Then
	wbk.Close
	strUser = WhoHasLockMyFile("computerName","F:\Bombardier\Maintenance\Planning Danny And Lawrence\Km Forecast\Burst Report & Prediction - MASTER.xlsx")
	MsgBox "Burst file is opened " & iif(struser<>"", "by: " & strUser & ",", "") & " mileage cannot be updated"
	GOTO CONTINUE"
End If

...
...

Public Function WhoHasLockMyFile(serverName As Variant, fileFullPath As String) As String
Dim varServer, varFile, objFS, varFoundNone, objRes
Dim FindPos As Long
' first, get the server name we want to work with
varServer = "F:\Km Forecast\"
varFile = "Burst Report & Predict - MASTER.xlsx"
'varServer = InputBox("Server name to check")

' get the local path of the file to check

'varFile = InputBox _
' ("Full path and filename of the file on the " & _
' "server (use the local path as if you were " & _
' "at the server console)")

' bind to the server’s file service
'Set objFS = GetObject("WinNT://" & varServer & _
'"/lanmanserver,fileservice")
'Set objFS = GetObject("WinNT://" & varServer & _
'"/lanmanserver.fileservice")
Set objFS = GetObject("WinNT://" & varServer & _
"/LanmanServer")

' scan through the open resources until we
' locate the file we want
varFoundNone = True

' use a FOR...EACH loop to walk through the
' open resources
For Each objRes In objFS.Resources
' does this resource match the
' one we’re looking for?
If (Not objRes.User = "") And (Not Right(objRes.User, 1) = "$") Then
'If objRes.path = varFile Then
' we found the file - show who’s got it
FindPos = InStr(1, objRes.Path, varFile, 1)
If FindPos <> 0 Then

varFoundNone = False
WhoHasLockMyFile = objRes.User
'MsgBox objRes.path & _
' " is opened by " & objRes.User
Exit For
End If
End If
Next
' if we didn’t find the file open, display a msg
'If varFoundNone = True Then
' MsgBox "Didn’t find that file opened " & _
' "by anyone."
'End If
Set objRes = Nothing
Set objFS = Nothing
End Function

    For Each objRes In objFS.Resources