全部显示

ReadSecurity 属性

返回或设置一个 FpListReadSecurity 常数，用来确定哪些用户可以读取列表中的信息。可读写。

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