Project.CheckoutProject メソッド (Project)
現在読み取り専用モードになっている開いているプロジェクトをチェックアウトします。
構文
式。 CheckoutProject
式Project オブジェクトを表す変数。
戻り値
Nothing
注釈
Project Professionalのアクティブなプロジェクトが読み取り専用モードの場合、CheckoutProject.method はプロジェクトをチェックアウトして、編集用の読み取り/書き込みモードになるようにします。 アクティブなプロジェクトが既にチェックアウトされている場合、Project には"このプロジェクトは別のコンピューターまたはProject Web App セッションで既にチェックアウトされています" というメッセージが表示されます。
例
次の例では、開いているプロジェクトがエンタープライズ プロジェクトであり、チェックアウトされているかどうかを判断します。プロジェクトがチェックアウトされていない場合、この例ではプロジェクトのチェックアウトを試みます。 プロジェクトが既にチェックアウトされている場合、"このプロジェクトは既に別のコンピューターまたはProject Web App セッションでチェックアウトされています" というエラー メッセージが表示されます。プロジェクトが別のユーザーによってチェックアウトされた場合、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
' Check out the project whether it is active or not.
proj.CheckoutProject
Debug.Print "Attempted to check out: '" & proj.Name & "'"
End If
Next proj
End Sub
関連項目
Application.IsCheckedOutApplication.ProjectCheckOut
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。