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
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。