Project.CheckoutProject method (Project) (Método Project.CheckoutProject [Projeto])

Dá saída de um projeto aberto que está atualmente no modo só de leitura.

Sintaxe

expression. CheckoutProject

expressão Uma variável que representa um objeto do Project .

Valor de retorno

Nothing

Comentários

Se o projeto ativo no Project Professional estiver no modo só de leitura, o checkoutProject.method dá saída do projeto para que esteja no modo de leitura/escrita para edição. Se o projeto ativo já tiver dado saída, o Project apresenta uma caixa de diálogo com a mensagem "Este projeto já tem saída dada para si num computador diferente ou numa sessão do Project Web App".

Exemplo

O exemplo seguinte determina se um projeto aberto é um projeto empresarial e tem saída dada. Se o projeto não tiver saída dada, o exemplo tenta marcar o projeto. Se o projeto já tiver saída dada para si, o Project apresenta uma caixa de diálogo com a mensagem de erro ""Este projeto já tem saída dada para si num computador diferente ou numa sessão do Project Web App." Se o projeto tiver saída dada por outro utilizador, o Project apresenta uma caixa de diálogo com a mensagem "Para marcar, DOMAIN\UserName tem de fechar o projeto na respetiva sessão ou contactar o administrador para marcar no projeto."

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

Confira também

Project Object Checkin Method (Método de Entrada deObjetos do Projeto)

Application.IsCheckedOutApplication.ProjectCheckOut

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.