Workbook.Permission (Excel)

Returns a Permission object that represents the permission settings in the specified workbook.

Dim prmPermission As Office.Permission
Set prmPermission = ActiveWorkbook.Permission