Müssen Sie überprüfen, ob ein Projekt ausgecheckt ist oder nicht

Question

Wie überprüft man, ob wir ein Projekt auschecken können oder nicht. Projekte werden im Sharepoint gespeichert. Immer Code druckt nicht in der Lage

Sub macro() 

Dim a As Project 

Shell "C:\Program Files (x86)\Microsoft Office\Office15\Winproj.exe /s https://inside.com/PWA/QWER/Project.aspx", vbNormalFocus 

Sleep 3000 

FileOpenEx Name:="<>\" & "ProjectNAME", ReadOnly:=True, DoNotLoadFromEnterprise:=False 

Set a = Projects.Item(1) 

a.Activate 

If (Projects.CanCheckOut(ActiveProject.Name)) Then 

    Debug.Print "Can check out the project" 
Else 

    Debug.Print "Cannot checkout the project" 

End If 

End Sub 

Es wird sehr hilfreich

Answer 1

Wenn Sie den Code in MS-Project VBA ausführen müssen zur Kasse, verwenden Sie den unten Code:

Sub CheckOutProject(docCheckOut As String) 

' Determine whether project can be checked out 
If Projects.CanCheckOut(docCheckOut) = True Then 
    Debug.Print "Can check out the project" 

    ' if you want, you can check it out 
    Projects.CheckOut docCheckOut 
Else 
    Debug.Print "Cannot checkout the project" 
End If 

End Sub 

Verwenden Sie den folgenden Code Test, um es zu testen:

Sub Test() 

Dim FullPath As String 

' Full Path equals the full SharePoint Path & File name (including extension) 
FullPath = "http://share.Comapny.com/sites/Test123/Project%20Documentsnew/Project%20Files/Project_1.mpp" 
CheckOutProject FullPath ' call the Sub 

End Sub