'Client-site
Sub ListAllUserRanges() 
   Dim xnet As New BSNetwork 
   Dim db As BSDatabase  'Get workbook
   Dim ur As BSUserRange  'Get sheet/range
   If Not xnet.Connected Then 
      xnet.Connect 
   End If 
   If Not xnet.Connected Then Exit Sub 
   'List of files in server
   For Each db In xnet.Databases 
      Debug.Print "Database: " & db.Name 
      db.UserRanges.Update 
      'List of sheet/range = BSUserrange in database
      For Each ur In db.UserRanges 
         Debug.Print vbTab & "Userrange: " & ur.Name 
      Next 
   Next 
   Set xnet = Nothing 
End Sub 

Sub TestGetSheetFromClient() 
   Dim sh As Worksheet 
   Set sh = GetSheetOpened("Shops.xls", "Shop 1") 
   If Not sh Is Nothing Then 
      sh.Select 
   End If 
End Sub 

Function GetSheetOpened(ByVal wbName As String, ByVal shName As String) As Object 
   Dim xnet As New BSNetwork  'Connect to server
   Dim db As BSDatabase  'Workbook
   Dim ur As BSUserRange 
   Dim sh As Worksheet 
   Set GetSheetOpened = Nothing 
   If Not xnet.IsRunning Or xnet.IsServer Then 
      Set GetSheetOpened = Workbooks(wbName).Sheets(shName) 
      GoTo lbEndFunc 
   End If 
   Set db = xnet.Databases(wbName) 
   db.UserRanges.Update 
   'List all sheet and range in "Shops.xls"
   For Each ur In db.UserRanges 
      'Debug.Print ur.Name
      If StrComp(ur.Name, shName, vbTextCompare) = 0 Or StrComp(ur.RemoteWorksheet, shName, vbTextCompare) = 0 Then 
         Set sh = ur.Sheet 
         If sh.Visible = xlSheetVisible Then 
            Set GetSheetOpened = sh 
            Exit For 
         End If 
      End If 
   Next 
lbEndFunc: 
   Set xnet = Nothing 
End Function