Project.CheckoutProject метод (Project)

Извлечение открытого проекта, который в данный момент находится в режиме только для чтения.

Синтаксис

выражение. CheckoutProject

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

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

Nothing

Примечания

Если активный проект в Project профессиональный находится в режиме только для чтения, метод CheckoutProject.method извлекает проект, чтобы он находился в режиме чтения / записи для редактирования. Если активный проект уже извлечен, в приложении Project отображается диалоговое окно с сообщением "Этот проект уже извлечен для вас на другом компьютере или в сеансе Project Web App".

Пример

В следующем примере определено, является ли открытый проект корпоративным, и извлекается. Если проект не извлечен, в примере выполняется попытка проверки проекта. Если проект уже выдан, в приложении Project отобразится диалоговое окно с сообщением об ошибке "Этот проект уже выдан вам на другом компьютере или в сеансе Project Web App". Если проект извлечен другим пользователем, в 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
            ' Check out the project whether it is active or not.
            proj.CheckoutProject
            Debug.Print "Attempted to check out: '" & proj.Name & "'"
        End If
    Next proj
End Sub

См. также

Метод возвратаобъекта проекта

Application.IsCheckedOutApplication.ProjectCheckOut

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

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