Método Project.CheckoutProject (Project)

Extraer del repositorio un proyecto abierto que está actualmente en modo de solo lectura.

Sintaxis

expresión. CheckoutProject

expresión Variable que representa un objeto Project .

Valor devuelto

Nothing

Comentarios

Si el proyecto activo en Project Professional está en modo de solo lectura, el método CheckoutProject.method extrae el proyecto para que esté en modo de lectura y escritura para su edición. Si el proyecto activo ya está desprotegido, Project muestra un cuadro de diálogo con el mensaje "Este proyecto ya está desprotegido en otro equipo o en la sesión de Project Web App".

Ejemplo

El siguiente ejemplo determina si un proyecto abierto es un proyecto empresarial y está desprotegido. Si no se extrae el proyecto, el ejemplo intenta desprotegerlo. Si el proyecto ya está desprotegido, Project muestra un cuadro de diálogo con el mensaje de error: "Este proyecto ya está desprotegido en otro equipo o en la sesión de Project Web App". Si otro usuario ha extraído 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
            ' Check out the project whether it is active or not.
            proj.CheckoutProject
            Debug.Print "Attempted to check out: '" & proj.Name & "'"
        End If
    Next proj
End Sub

Vea también

Método de comprobación deobjetos del proyecto

Application.IsCheckedOutApplication.ProjectCheckOut

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.