Not easy to do because it is tricky to make this happen on open (unless you can write XML) and also the date header/footer acts in strange ways.
See if this gets you closer
Sub Yesterday()
Dim ocl As CustomLayout
Dim osld As Slide
Dim strdate As String
Select Case WeekdayName(Weekday(Now))
Case "Monday"
strdate = Now - 3
Case Else
strdate = Now - 1
End Select
strdate = Format(strdate, "dddd,dd/mm/yyyy")
For Each ocl In ActivePresentation.Designs(1).SlideMaster.CustomLayouts
ocl.HeadersFooters.DateAndTime.Text = strdate
Next ocl
For Each osld In ActivePresentation.Slides
osld.HeadersFooters.DateAndTime.Visible = True
osld.HeadersFooters.DateAndTime.Text = strdate
Next osld
End Sub