Propriedade Application.IsCheckedOut (Project)

Obtém se um projeto aberto é verificado no Project Web App pelo usuário. Boolean somente leitura.

Sintaxe

expression. IsCheckedOut

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
ProjectName	Obrigatório	String	O nome de um projeto aberto em Project Professional.

Comentários

Para um projeto aberto em Project Professional, o valor da propriedade IsCheckedOut será True se o projeto for verificado pelo usuário atual. Se o projeto especificado não for verificado pelo usuário atual (ou seja, o projeto está aberto, mas em um modo somente leitura) ou é verificado por um usuário diferente, o valor IsCheckedOut é False.

A propriedade IsCheckedOut retorna o erro de tempo de execução 1004, "Ocorreu um erro inesperado com o método" nos seguintes casos:

• O projeto especificado não está aberto em Project Professional.

• O projeto especificado é um arquivo de projeto local, como Project1.mpp.

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 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
            proj.CheckoutProject
            Debug.Print "Attempted to check out: '" & proj.Name & "'"
        End If
    Next proj
End Sub

Valor de propriedade

BOOL

Confira também

Propriedade Project.Type doApplication Object

Método 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.