How to update all projects data (checkout-edit-save&publish-checkin)?

Question

Hi every one,
we have more that 400 projects in pwa and it will take too much time to update status date for all of them one by one mounthly
so I'm looking for a solution (probably VBA) for opening all projects and set the status date to a specified value and save & publish then check-in all of them.
is there any way to get it done?
thanks for any help

Answer 1

You can build a user form in VBA
I made one that has 12 text boxes with project names. It is used to open and close and republish projects to current date as status date but you could just as easily set that date to something specific.
Dim controlplanname
If TextBox1.TextLength <> 0 Then
    controlplanname = "<>\" & Trim(TextBox1.Text)
    FileOpenEx Name:=controlplanname, ReadOnly:=False
    Macro Name:="AfterAcceptControlPlanUpdates_Close"
End If
Sub abAfterAcceptControlPlanUpdates_Close()
' this is a first attempt at a one button macro
' after countless control plans are opened from the web
    'DisplayAlerts = False
    Alerts False
        Call WriteProjectDeadlineToFinalMilestone
        LevelingClear All:=True
        UpdateProject All:=True, UpdateDate:=Now, Action:=2
        Application.RepublishAssignments False, pjPublishScopeAll, False, True, True, ""
        fnWait (2)
        UpdateProjectToWeb EmbedProjectFile:=True
        'MailSendProjectMail MessageType:="TeamPublishAll", Subject:="Publish New and Changed Assignments", Body:="Below are the latest schedule changes. Contact your project manager if there are any problems with the changes.",
ShowDialog:=False, PublishScope:=1
    Alerts True
    fnWait (2)
   'DisplayAlerts = True
    FileClose pjSave
End Sub
So you could build a looping construct that finds out the status date of projects and if it is below a certain threshold then call the Sub.
It is important to also be aware that this sub will overwrite and not process the updates the resources have submitted.
My use case is accept all updates from PWA, All those projects open themselves. Then I apply the Sub. Then I have a list of Projects that have not been modified recently. And call the Sub separately on those via the custom form, and just let it run.