全部显示

DesignSecurity 属性

返回或设置一个 FpListDesignSecurity 常数，用来定义列表的安全性权限。

expression  必选。返回“应用于”列表中的对象之一的表达式。

示例

下列示例修改当前站点中各个 BasicList 对象的安全性模式。如果没有设置 DesignSecurity 属性，则该子程序将其设置为 fpListDesignSecurityEvery。一旦设置了此属性，所有用户都可以编辑当前站点中 BasicList 对象的设计设置。

注意 使用 ApplyChanges 方法来保存对列表所做的更改。

Sub SetSecurityType()
'Changes security type of all BasicLists.

    Dim objApp As FrontPage.Application
    Dim objList As List
    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 than change permissions
        If objList.Type = fpListTypeBasicList Then
            If objList.DesignSecurity <> _
               fpListDesignSecurityEveryone Then
                objList.DesignSecurity = _
                fpListDesignSecurityEveryone
            End If
            objList.ApplyChanges
        End If
    Next

End Sub