Application.ProjectCheckOut method (Project) (Método Application.ProjectCheckOut [Projeto])

Dá saída de um projeto aberto se for 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 tem de estar ativo para que o método ProjectCheckOut funcione. 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, a mensagem de erro é "Para marcar, DOMAIN\UserName tem de fechar o projeto na respetiva sessão ou contactar o administrador para marcar no projeto".

Exemplo

O exemplo seguinte tenta marcar todos os projetos abertos como só de 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 Application ObjectProject.Checkin

IsCheckedOut PropertyProject.CheckoutProject Method (Método IsCheckedOut Property Project.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.