Outlook) (View.LockUserChanges 属性

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

语法

expression。 LockUserChanges

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

备注

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

示例

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

Sub LocksPublicViews() 
 'Locks the interface of all views that are available to 
 'all users of this folder. 
 Dim objName As Outlook.NameSpace 
 Dim objViews As Outlook.Views 
 Dim objView As Outlook.View 
 
 Set objName = Application.GetNamespace("MAPI") 
 Set objViews = objName.GetDefaultFolder(olFolderNotes).Views 
 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) 
 'Locks the user interface of the view. 
 'Accepts and returns a View object and user response. 
 With objView 
 If blnAns = True Then 
 'if true lock UI 
 .LockUserChanges = True 
 .Save 
 Else 
 'if false don't lock UI 
 .LockUserChanges = False 
 End If 
 End With 
End Sub

另请参阅

视图对象

支持和反馈

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