Propriedade Project.Type (Project)

Obtém o tipo de um projeto. Somente leitura PjProjectType.

Sintaxe

expressão. Tipo

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

Comentários

A propriedade Type pode ser uma das constantes PjProjectType.

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

Confira também

Enumeração PjProjectType do Project Object

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