Método Application.ProjectCheckOut (Project)

Extrae un proyecto abierto si es el proyecto activo.

Sintaxis

expresión. ProjectCheckOut (Nombre)

expresión Variable que representa un objeto Application.

Parámetros

Valor devuelto

Boolean

Comentarios

Debe haber un proyecto abierto activo para que funcione el método ProjectCheckOut . 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, el mensaje de error es "Para desproteger, DOMAIN\UserName debe cerrar el proyecto en su sesión o ponerse en contacto con el administrador para proteger el proyecto".

Ejemplo

En el ejemplo siguiente se intenta extraer del repositorio todos los proyectos que se abren como de solo lectura.

Sub TestProjectCheckOut()
    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 only if it is the active project.
            proj.Activate
            Application.ProjectCheckOut
            Debug.Print "Attempted to check out: '" & proj.Name & "'"
        End If
    Next proj
End Sub

Vea también

Método Objeto de aplicaciónProject.Checkin

Propiedad IsCheckedOutMétodo Project.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.