Application.ProjectCheckOut 方法 (專案)

如果是正在進行的專案，會檢查該專案。

語法

expression。 ProjectCheckOut (名稱)

expression 代表 Application 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Name	選用	字串	專案名稱

傳回值

布林值

註解

ProjectCheckOut 方法必須是啟用的專案。 如果專案已經對你已結出，專案會顯示一個錯誤訊息的對話框：「此專案已在另一台電腦或 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

另請參閱

應用程式物件專案。檢查方法

IsCheckedOut 物業專案。CheckoutProject 方法

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。