Permission Property
Returns a Permission object that represents the permission settings in the specified workbook.
expression.Permission
expression Required. An expression that returns one of the objects in the Applies To list.
Example
The following example returns the permission settings for the active workbook.
Dim objPermission As Permission
Set objPermission = ActiveWorkbook.Permission