Project) (Application.IsCheckedOut 屬性

取得開啟的專案是否由使用者從Project Web App取出。 唯讀的 Boolean。

語法

expression。 IsCheckedOut

expression 代表 Application 物件的變數。

參數

名稱	必要/選用	資料類型	描述
ProjectName	必要	字串	在 Project 專業版 中開啟的專案名稱。

註解

針對在 Project 專業版 中開啟的專案，如果目前使用者已取出專案，則 IsCheckedOut屬性值為True。 如果指定的專案未由目前的使用者取出， (即，專案會開啟，但處於唯讀模式) ，或由其他使用者取出， 則 IsCheckedOut 值為 False。

IsCheckedOut屬性會在下列情況下傳回執行階段錯誤 1004：「方法發生非預期的錯誤」：

• 指定的專案未在Project 專業版中開啟。

• 指定的專案是本機專案檔，例如 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

另請參閱

Application 物件Project.Type 屬性

Project.CheckoutProject 方法

支援和意見反應

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