Compartir a través de

Método Project.CheckoutProject (Project)

  • Artículo

Comprueba 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 de Project Profesional está en modo de solo lectura, el método CheckoutProject.method comprueba 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 sesión de Project Web App".

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 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 sesión de Project Web App". 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
            ' 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

Consulte también

Project ObjectCheckin (método)

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.