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

另请参阅

应用程序对象Project.Checkin 方法

IsCheckedOut 属性Project.CheckoutProject 方法

支持和反馈

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

  • Last updated on