Propiedad Application.IsCheckedOut (Project)

Obtiene si el usuario desprotegió un proyecto abierto de Project Web App. Boolean de solo lectura.

Sintaxis

expresión. IsCheckedOut

expresión Variable que representa un objeto Application.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
ProjectName	Obligatorio	String	Nombre de un proyecto que está abierto en Project Profesional.

Comentarios

Para un proyecto abierto en Project Profesional, el valor de la propiedad IsCheckedOut es True si el usuario actual desprotegió el proyecto. Si el usuario actual no desprotegió el proyecto especificado (es decir, el proyecto está abierto pero en modo de solo lectura) o lo desprotegió otro usuario, el valor IsCheckedOut es False.

La propiedad IsCheckedOut devuelve el error en tiempo de ejecución 1004, "Error inesperado con el método" en los casos siguientes:

• El proyecto especificado no está abierto en Project Profesional.

• El proyecto especificado es un archivo de proyecto local, como Project1.mpp.

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

Valor de propiedad

BOOL

Consulte también

Propiedad Project.Typedel objeto Application

Mé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.