Workbook.ServerPolicy (Excel)

Returns a ServerPolicy object that represents a policy specified for a workbook stored on a server running SharePoint Server 2007 or later.

Dim spyServerPolicy As Office.ServerPolicy
Set spyServerPolicy = ActiveWorkbook.ServerPolicy