problem with macro

[SunilChauhan]

Dear all ,

i am facing

Wrong number of arguments or invalid property assignment: 'temp.UserPermissions.AllowExport' on running following macro

Sub HideXL

msgbox(ActiveDocument.GetProperties.UserPermissions.AllowExport)

temp=ActiveDocument.GetProperties.UserPermissions.AllowExport

if temp then

msgbox("Export allowed")

temp=ActiveDocument.GetProperties temp.UserPermissions.AllowExport =false

ActiveDocument.SetProperties temp

msgbox(ActiveDocument.GetProperties.UserPermissions.AllowExport)

end if

End Sub

plz help

TOM