通过

Application.ProjectCheckOut 方法 (Project)

  • 项目

如果打开的项目是活动项目，则签出该项目。

语法

expression。 ProjectCheckOut (名称)

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
Name 可选 String 项目的名称

返回值

Boolean

说明

打开的项目必须处于活动状态， ProjectCheckOut 方法才能正常工作。 如果项目已签出给你，Project 将显示一个对话框，其中包含错误消息“此项目已在其他计算机或Project Web App会话中签出给你”。如果项目由其他用户签出，则错误消息为“若要检查，DOMAIN\UserName 必须在其会话中关闭项目，或联系管理员以在项目中检查”。

示例

以下示例尝试检查所有以只读身份打开的项目。

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

另请参阅

Application 对象Project.Checkin 方法

IsCheckedOut 属性Project.CheckoutProject 方法

支持和反馈

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