Closing File/Auto respond to dialog

[Jeffrey Mahoney]

Sharepoint has a feature that allows me to "Checkout" an excel workbook and open it directly in excel (not in browser mode). I have macros that automatically close the file after 15 minutes of non use. This worked fine until some sort of sharepoint add-in asks a user if they want to check the file back in upon closing.

How do I programmatically click YES during close?

This sub gets called using Application.OnTime

Sub CloseAndSave()
  Dim NextTime As Date
  
  If Timer - Idle > 900 Then              '900 seconds = 15 minutes
    If ThisWorkbook.ReadOnly = False Then
      ThisWorkbook.Close savechanges:=True
    End If
    Exit Sub
  End If
  
  'Debug.Print Timer - Idle
  NextTime = Now() + TimeValue("00:15:00")
  Application.OnTime NextTime, "CloseAndSave"
  
End Sub