Compartir a través de

Método Application.ProjectCheckOut (Project)

  • Artículo

Comprueba un proyecto abierto si es el proyecto activo.

Sintaxis

expresión. ProjectCheckOut (Nombre)

expresión Variable que representa un objeto Application.

Parámetros

Nombre Obligatorio/opcional Tipo de datos Descripción
Name Opcional Cadena Nombre del proyecto

Valor devuelto

Boolean

Comentarios

Un proyecto abierto debe estar activo para que el método ProjectCheckOut funcione. 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, 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 comprobar 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 Project.Checkindel objeto Application

Método Project.CheckoutProjectde la propiedad IsCheckedOut

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.