Определение имени пользователя, у которого в данный момент открыт файл Excel

Function FileIsBusy(File$) As Boolean   
    a = ""
    Dim FN%: FN = FreeFile
    On Error Resume Next
    Open File For Random Access Write Lock Write As #FN
    Close #FN
    FileIsBusy = (Err <> 0)       
End Function

If FileIsBusy("Q:\Свод_ПБУ_2022.xlsx") = True Then
    'a = CreateObject("wscript.network").UserName
    'a = Environ("UserName")
    'a = WMI_UserFullName
    'a = Workbooks("Свод_ПБУ_2022.xlsx").UserStatus
    'Set objSysInfo = CreateObject("ADSystemInfo")
    'a = objSysInfo.UserName
 
    MsgBox ("Файл занят пользователем ") & a
    Exit Sub
End If

Private Sub Workbook_Open()
    Open "Q:\Свод_ПБУ_2022.log" For Output Lock Write As #1
    Print #1, Environ("UserName")
    Close #1
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Open "Q:\Свод_ПБУ_2022.log" For Output Lock Write As #1
    Print #1, ""
    Close #1
End Sub

Private Sub Workbook_Open()
    If Not ThisWorkbook.ReadOnly Then
        Open ThisWorkbook.Path & "\Свод_ПБУ_2022.log" For Output Lock Write As #1
        Print #1, Environ("UserName")
        Close #1
    End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not ThisWorkbook.ReadOnly Then
        Open ThisWorkbook.Path & "\Свод_ПБУ_2022.log" For Output Lock Write As #1
        Print #1, ""
        Close #1
    End If
End Sub