Application.ProjectCheckOut 方法 (Project)

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

语法

expression。 ProjectCheckOut (名称)

expression：表示 Application 对象的变量。

参数

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

返回值

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。