Protection: ITabProtection;
The Protection property returns the object which contains the table protection.
Sub Main;
Var
MB: IMetabase;
Rep: IPrxReport;
Tab: ITabSheet;
View: ITabView;
Prot: ITabProtection;
Begin
MB:=MetabaseClass.Active;
Rep:=MB.ItemById("Reg_rep").Bind As IPrxReport;
Tab:=Rep.ActiveSheet.Table;
View:=Tab.View;
Prot:=View.Protection;
End Sub Main;
After executing the example the Prot variable will contain the regular report active sheet protection.
See also: