FrontPage VBA教程:EditSecurity属性

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

FpListEditSecurity 可以是下列 FpListEditSecurity constants 常数之一:
fpListEditSecurityAll 所有用户都可以编辑列表。
fpListEditSecurityNone 没有用户能编辑这个列表。
fpListEditSecurityOnlyOwn 用户只能编辑他们自己的列表。

expression.EditSecurity

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

VBA示例

下列示例将 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

上页:FrontPage VBA教程:EditForm属性 下页:FrontPage VBA教程:embeds属性

FrontPage VBA教程:EditSecurity属性

FrontPage VBA教程:embeds属性 FrontPage VBA教程:Extension属性
FrontPage VBA教程:external属性 FrontPage VBA教程:fgColor属性
FrontPage VBA教程:Fields属性 FrontPage VBA教程:File属性
FrontPage VBA教程:fileCreatedDate属性 FrontPage VBA教程:FileDialog属性
FrontPage VBA教程:FileDialogViewPage属性 FrontPage VBA教程:fileModifiedDate属性
FrontPage VBA教程:Files属性 FrontPage VBA教程:FileSaveForm属性
FrontPage VBA教程:FileSearch属性 FrontPage VBA教程:fileSize属性
FrontPage VBA教程:fileUpdatedDate属性 FrontPage VBA教程:Folder属性
FrontPage VBA教程:Folders属性 FrontPage VBA教程:Format属性
FrontPage VBA教程:forms属性 FrontPage VBA教程:isDirty属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号