Метод Application.ProjectCheckOut (Project)

Извлекает открытый проект, если он является активным.

Синтаксис

выражение. ProjectCheckOut(Имя)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Name	Необязательно заполнять.	String	Имя проекта

Возвращаемое значение

Boolean

Примечания

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

Пример

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

Sub TestProjectCheckOut()
    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
            ' Check out the project only if it is the active project.
            proj.Activate
            Application.ProjectCheckOut
            Debug.Print "Attempted to check out: '" & proj.Name & "'"
        End If
    Next proj
End Sub

См. также

Метод Project.Checkinобъекта приложения

Метод IsCheckedOut PropertyProject.CheckoutProject

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

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