全部显示

EditSecurity 属性

       

返回或设置一个 FpListEditSecurity 常数,用来确定哪些用户可以编辑当前列表。

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