Project.CheckoutProject メソッド (Project)

現在読み取り専用モードの開いているプロジェクトをチェックアウトします。

構文

expression。 CheckoutProject

式Project オブジェクトを表す変数。

戻り値

Nothing

注釈

Project Professional のアクティブなプロジェクトが読み取り専用モードの場合、CheckoutProject.method はプロジェクトをチェックアウトして、編集用の読み取り/書き込みモードになります。 アクティブなプロジェクトが既にチェックアウトされている場合、"このプロジェクトは既に別のコンピューターまたは Project Web App セッションでチェックアウトされています" というメッセージを含むダイアログ ボックスが表示されます。

例

次の例では、開いているプロジェクトがエンタープライズ プロジェクトであり、チェックアウトされているかどうかを判断します。プロジェクトがチェックアウトされていない場合、この例ではプロジェクトをチェックアウトしようとします。 プロジェクトが既にチェックアウトされている場合、"このプロジェクトは別のコンピューターまたは Project Web App セッションで既にチェックアウトされています" というエラー メッセージを含むダイアログ ボックスが表示されます。プロジェクトが別のユーザーによってチェックアウトされている場合、"チェックアウトするには、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 のサポートおよびフィードバックを参照してください。

  • Last updated on