Propriedade CardView.LockUserChanges (Outlook)CardView.LockUserChanges Property (Outlook)

Retorna ou define um valor Boolean que indica se um usuário pode modificar as configurações do modo de exibição.Returns or sets a Boolean value that indicates whether a user can modify the settings of the view. Leitura/gravação.Read/write.

SintaxeSyntax

expression.expression. LockUserChanges

expressão Uma variável que representa um objeto CardView .expression A variable that represents a CardView object.

ComentáriosRemarks

Se True , o usuário pode modificar as configurações do modo de exibição especificada.If True , the user can modify the settings of the specified view. No entanto, as alterações feitas na interface não serão salvas.However, changes made to the interface will not be saved. Se Falso (o padrão), as alterações serão salvas.If False (the default), any changes will be saved.

ExemploExample

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.The following Visual Basic for Applications (VBA) example locks the user interface for all views that are available to all users. A sub-rotina LockView aceita o objeto View e um valor Boolean que indica se a interface de usuário do modo de exibição será bloqueada.The subroutine LockView accepts the View object and a Boolean value that indicates if the View user interface will be locked. Neste exemplo, o procedimento sempre é chamado com o valor booliano definido como True.In this example, the procedure is always called with the Boolean value set to 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

Ver tambémSee also

Objeto CardViewCardView Object