Исходный код

Option Explicit
Call ShowLockedObjectsSummary()

'==============================================================================
' Вывести информацию обо всех объектах, заблокированных в данный момент в системе
'==============================================================================
Sub ShowLockedObjectsSummary()
        
        Dim s, LockedObjects, obj, LockTypes 
        
        'Заполнить массив возможных типов блокировки
        LockTypes = Array("Отсутствует","Не определено",_
                            "Редактируются атрибуты", "Редактируются файлы")

        'Получить ссылку на коллекцию заблокированных объектов
        Set LockedObjects = ThisApplication.LockedObjects
        
        'Заполнить описание блокировки для каждого объекта
        For Each obj In LockedObjects 
                With Obj.Permissions
                    s = "Объект: " & Obj.Description & Chr(13)
                    s = s & "Кем заблокирован: " & .LockUser.Description & Chr(13)
                    s = s & "Когда заблокирован: " & .LockTime & Chr(13)
                    s = s & "Тип блокировки: " & LockTypes(.LockType) & Chr(13)
                End With
                'Вывести информацию в окно сообщений
                ThisApplication.AddNotify s
        Next
End Sub
'==============================================================================