Свойство Application.IsCheckedOut (Project)

Статья
04/07/2023

Возвращает значение, указывающее, извлекается ли открытый проект из Project Web App пользователем. Только для чтения, Boolean.

Синтаксис

выражение. IsCheckedOut

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
ProjectName	Обязательный	String	Имя проекта, открытого в Project профессиональный.

Замечания

Для проекта, открытого в Project профессиональный, значение свойства IsCheckedOut равно True, если проект извлечен текущим пользователем. Если указанный проект не извлечен текущим пользователем (то есть проект открыт, но в режиме только для чтения) или извлечен другим пользователем, значение IsCheckedOut равно False.

Свойство IsCheckedOut возвращает ошибку времени выполнения 1004 " Произошла непредвиденная ошибка с методом" в следующих случаях:

Указанный проект не открыт в Project профессиональный.
Указанный проект является локальным файлом проекта, например Project1.mpp.

Пример

В следующем примере определяется, является ли открытый проект корпоративным и извлекается. Если проект не извлечен, в примере выполняется попытка извлечь проект. Если проект извлечен другим пользователем, в project отображается диалоговое окно с сообщением "Чтобы извлечь, DOMAIN\UserName необходимо закрыть проект в своем сеансе или обратиться к администратору, чтобы вернуть проект".

Sub CheckOutOpenEnterpriseProjects()
    Dim openProjects As Projects
    Dim proj As Project
    
    Set openProjects = Application.Projects
    
    On Error Resume Next
    
    For Each proj In openProjects
        If Application.IsCheckedOut(proj.Name) Then
            If proj.Type = pjProjectTypeEnterpriseCheckedOut Then
                Debug.Print "'" & proj.Name & "'" & " is already checked out."
            ElseIf proj.Type = pjProjectTypeNonEnterprise Then
                Debug.Print "'" & proj.Name & "'" & " is not an enterprise project."
            End If
        Else
            proj.CheckoutProject
            Debug.Print "Attempted to check out: '" & proj.Name & "'"
        End If
    Next proj
End Sub

Значение свойства

BOOL

См. также

Свойство Project.Type объекта приложения

Метод Project.CheckoutProject

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через