Advise user if workbook open, who is the 'owner' and option to try again

Sub Test_GetFileOwner()
  MsgBox GetFileOwner(ThisWorkbook.FullName)
End Sub

' http://www.ozgrid.com/forum/showthread.php?t=143957
Function GetFileOwner(fileName As String) As String
    Dim secUtil As Object
    Dim secDesc As Object
    Dim File_Shortname As String
    Dim fileDir As String
     
    File_Shortname = Dir(fileName)
    fileDir = Left(fileName, InStr(1, fileName, File_Shortname) - 1)
    Set secUtil = CreateObject("ADsSecurityUtility")
    Set secDesc = secUtil.GetSecurityDescriptor(fileDir & File_Shortname, 1, 1)
    GetFileOwner = secDesc.owner
End Function