EditSecurity 属性

返回或设置一个 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