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

Метод 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

См. также

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

Application.IsCheckedOutApplication.ProjectCheckOut

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

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