Propriedade View.LockUserChanges (Outlook)

Retorna ou define um valor Boolean que indica se um usuário pode modificar as configurações do modo de exibição atual. Leitura/gravação.

Sintaxe

expression. LockUserChanges

Expressão Uma variável que representa um objeto View .

Comentários

Se True, o usuário pode modificar as configurações do modo de exibição atual. No entanto, as alterações feitas na interface não serão salvas. Se Falso (o padrão), as alterações serão salvas.

Exemplo

O exemplo a seguir bloqueia a interface do usuário para todas as exibições que estão disponíveis para todos os usuários. A sub-rotina LockView aceita o objeto View e um valor booliano que indica se a interface Exibir será bloqueada. Neste exemplo o procedimento sempre é chamado com o valor booliano definido como 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

Confira também

Objeto View

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.