Свойство View.LockUserChanges (Outlook)

Статья
04/07/2023

Возвращает или задает логическое значение, указывающее, может ли пользователь изменять параметры текущего представления. Для чтения и записи.

Синтаксис

выражение. LockUserChanges

Выражение Переменная, представляющая объект View .

Замечания

Если задано значение True, пользователь может изменить параметры текущего представления. Однако изменения, внесенные в интерфейс, не будут сохранены. Если значение false (значение по умолчанию), все изменения будут сохранены.

Пример

В следующем примере пользовательский интерфейс блокируется для всех представлений, доступных всем пользователям. Подпрограмма LockView принимает объект 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 и обратная связь.

Поделиться через