通过

Application.IsCheckedOut 属性 (Project)

  • 项目

获取用户是否从Project Web App签出打开的项目。 只读 Boolean。

语法

expression。 IsCheckedOut

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
ProjectName 必需 字符串 在 Project Professional 中打开的项目的名称。

备注

对于在 Project Professional 中打开的项目，如果项目由当前用户签出，IsCheckedOut 属性值为 True。 如果当前用户未签出指定的项目， (即，该项目处于打开状态，但处于只读模式) ，或者由其他用户签出， 则 IsCheckedOut 值为 False。

在以下情况下， IsCheckedOut 属性返回运行时错误 1004，即“方法发生意外错误”：

  • 指定的项目未在Project Professional中打开。

  • 指定的项目是本地项目文件，如 Project1.mpp。

示例

以下示例确定打开的项目是否为企业项目并已签出。如果未签出项目，本示例将尝试签出项目。 如果项目由其他用户签出，Project 将显示一个对话框，其中包含消息“要签出，DOMAIN\UserName 必须在其会话中关闭项目，或联系管理员签入项目”。

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

属性值

BOOL

另请参阅

应用程序对象Project.Type 属性

Project.CheckoutProject 方法

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。