Propriedade CalendarView.LockUserChanges (Outlook)
Retorna ou define um valor Boolean que indica se um usuário pode modificar as configurações do modo de exibição. Leitura/gravação.
Sintaxe
expression. LockUserChanges
Expressão Uma variável que representa um objeto CalendarView .
Comentários
Se True, o usuário pode modificar as configurações do modo de exibição especificada. 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 seguinte exemplo Visual Basic for Applications (VBA) 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 do usuário Exibir será bloqueada. Neste exemplo o procedimento sempre é chamado com o valor booliano definido como 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
Confira também
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.