Application.ProjectCheckOut メソッド (Project)

オープン プロジェクト (アクティブなプロジェクトである場合) をチェックアウトします。

構文

expression。 ProjectCheckOut (名前)

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

パラメーター

名前 必須 / オプション データ型 説明
名前 省略可能 String プロジェクトの名前

戻り値

ブール型 (Boolean)

注釈

ProjectCheckOut メソッドを機能させるには、開いているプロジェクトがアクティブである必要があります。 プロジェクトが既にチェックアウトされている場合、"このプロジェクトは別のコンピューターまたは 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 のサポートおよびフィードバックを参照してください。

  • Last updated on