Compartir a través de

Propiedad Project.Type (Project)

  • Artículo

Obtiene el tipo de un proyecto. Read-only PjProjectType.

Sintaxis

expresión. Tipo

Expresión Variable que representa un objeto Project .

Comentarios

La propiedad Type puede ser una de las constantes PjProjectType.

Ejemplo:

En el ejemplo siguiente se determina si un proyecto abierto es un proyecto empresarial y está desprotegido. Si el proyecto no está desprotegido, el ejemplo intenta desproteger el proyecto. Si otro usuario desprotegió el proyecto, Project muestra un cuadro de diálogo con el mensaje "Para desproteger, DOMAIN\UserName debe cerrar el proyecto en su sesión o ponerse en contacto con el administrador para proteger el proyecto".

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

Consulte también

PjProjectType (enumeración) del objeto Project

Propiedad Application.IsCheckedOutdel método CheckoutProject

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.