Project) (Application.ProjectCheckOut 方法

如果開啟的專案是使用中的專案，則簽出該專案。

語法

expression。 ProjectCheckOut (名稱)

expression 代表 Application 物件的變數。

參數

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

傳回值

布林值

註解

開啟的專案必須處於作用中狀態， 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 支援與意見反應。