Método Project.CheckoutProject (Project)

Verifica um projeto aberto que está atualmente no modo somente leitura.

Sintaxe

expression. CheckoutProject

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

Valor de retorno

Nothing

Comentários

Se o projeto ativo no Project Professional estiver no modo somente leitura, o método CheckoutProject.verifica o projeto para que ele esteja no modo de leitura/gravação para edição. Se o projeto ativo já estiver verificado, o Project mostrará uma caixa de diálogo com a mensagem: "Este projeto já está verificado em um computador diferente ou na sessão do Project Web App".

Exemplo

O exemplo a seguir determina se um projeto aberto é um projeto empresarial e é verificado. Se o projeto não for verificado, o exemplo tentará verificar o projeto. Se o projeto já estiver marcado para você, o Project mostrará uma caixa de diálogo com a mensagem de erro: ''Esse projeto já está marcado para você em um computador diferente ou sessão do Project Web App". Se o projeto for verificado por outro usuário, o Project mostrará uma caixa de diálogo com a mensagem: "Para fazer check-out, DOMAIN\UserName deve fechar o projeto em sua sessão ou entrar em contato com o administrador para fazer check-in 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

Método de check-indo objeto project

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.