Método Application.ProjectCheckOut (Project)

Verifica um projeto aberto se ele é o projeto ativo.

Sintaxe

expression. ProjectCheckOut(Nome)

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

Parâmetros

Valor de retorno

Boolean

Comentários

Um projeto aberto deve estar ativo para que o método ProjectCheckOut funcione. 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, a mensagem de erro será "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".

Exemplo

O exemplo a seguir tenta verificar todos os projetos abertos como somente leitura.

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

Confira também

Método Project.Checkin do Application Object

Método IsCheckedOut PropertyProject.CheckoutProject

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.