返回或设置一个 FpListEditSecurity 常数,用来确定哪些用户可以编辑当前列表。
FpListEditSecurity 可以是下列 FpListEditSecurity constants 常数之一: |
fpListEditSecurityAll 所有用户都可以编辑列表。 |
fpListEditSecurityNone 没有用户能编辑这个列表。 |
fpListEditSecurityOnlyOwn 用户只能编辑他们自己的列表。 |
expression.EditSecurity
expression 必选。返回“应用于”列表中的对象之一的表达式。
下列示例将 fpListTypeBasicList 类型的所有列表的编辑权限更改为 fpListEditSecurityOnlyOwn 。一旦设置了属性,用户就只能编辑他们自己创建的列表。
注意 使用 ApplyChanges 方法来保存对列表所做的更改。
Sub ChangeEditPermissions()
'Changes the permissions of all BasicLists in the web
Dim objApp As FrontPage.Application
Dim objList As Object
Dim objLists As Lists
Set objApp = FrontPage.Application
Set objLists = objApp.ActiveWeb.Lists
'Cycle through each list and check for list type
For Each objList In objLists
'If it's a BasicList then change permissions
If objList.Type = fpListTypeBasicList Then
If objList.EditSecurity <> fpListEditSecurityOnlyOwn Then
objList.EditSecurity = fpListEditSecurityOnlyOwn
objList.ApplyChanges
End If
End If
Next
End Sub