TimelineView.LockUserChanges 属性 (Outlook)

返回或设置一个 布尔 值，该值指示用户是否可以修改视图的设置。 读/写。

语法

expression。 LockUserChanges

表达 一个代表 TimelineView 对象的变量。

备注

如果 True ，用户可以修改指定视图的设置。 但是，将不保存对接口进行更改。 如果 False (默认值)，任何更改都将保存。

示例

下面的 Visual Basic for Applications (VBA) 示例锁定对所有用户可用的全部视图的用户界面。 子例程 LockView 接受 View 对象和一个 布尔 值，该值指示 视图 用户界面是否将被锁定。 在此示例中，将设置为 True 的 布尔 值与始终调用的过程。

Sub LockPublicViews() 
 
 
 
 Dim objName As NameSpace 
 
 Dim objViews As Views 
 
 Dim objView As View 
 
 
 
 ' Get the Views collection for the Contacts default folder. 
 
 Set objName = Application.GetNamespace("MAPI") 
 
 Set objViews = objName.GetDefaultFolder(olFolderContacts).Views 
 
 
 
 ' Enumerate the Views collection and lock the user 
 
 ' interface for any view that can be accessed by 
 
 ' all users who have access to the Notes default folder. 
 
 For Each objView In objViews 
 
 If objView.SaveOption = olViewSaveOptionThisFolderEveryone Then 
 
 Call LockView(objView, True) 
 
 End If 
 
 Next objView 
 
 
 
End Sub 
 
 
 
Sub LockView(ByRef objView As View, ByVal blnAns As Boolean) 
 
 
 
 ' Examine the view object. 
 
 With objView 
 
 If blnAns = True Then 
 
 ' Lock the user interface and 
 
 ' save the view 
 
 .LockUserChanges = True 
 
 .Save 
 
 Else 
 
 ' Unlock the user interface of the view. 
 
 .LockUserChanges = False 
 
 End If 
 
 End With 
 
 
 
End Sub

另请参阅

TimelineView 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。