返回或设置一个 FpListReadSecurity 常数,用来确定哪些用户可以读取列表中的信息。可读写。
FpListReadSecurity 可以是下列 FpListReadSecurity 常数之一: |
fpListReadSecurityAll 所有用户都可以读取列表。 |
fpListReadSecurityOnlyOwn 只有列表的创建者可以读取。 |
expression.ReadSecurity
expression 必选。返回“应用于”列表中的对象之一的表达式。
以下示例将当前站点中所有类型为 fpListBasicList 的列表的读取权限设置为 fpListReadSecurityAll。现在所有用户都可以读取所有类型为 fpListTypeBasicList 的列表。
注意 使用 ApplyChanges 方法来保存对列表的更改。
Sub ChangePermissions()
'Changes permission of all BasicLists in the current 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.ReadSecurity <> fpListReadSecurityAll Then
objList.ReadSecurity = fpListReadSecurityAll
objList.ApplyChanges
End If
End If
Next
End Sub