Compartir a través de

Propiedad View.LockUserChanges (Outlook)

  • Artículo

Devuelve o establece un valor booleano que indica si un usuario puede modificar la configuración de la vista actual. Lectura y escritura.

Sintaxis

expresión. LockUserChanges

Expresión Variable que representa un objeto View .

Comentarios

Si el es True, el usuario puede modificar la configuración de la vista actual. Sin embargo, no se guardarán los cambios realizados en la interfaz. Si False (valor predeterminado), los cambios se guardarán.

Ejemplo:

En el siguiente ejemplo se bloquea la interfaz de usuario para todas las vistas que están disponibles para todos los usuarios. La subrutina LockView acepta el objeto View y un valor booleano que indica si se bloqueará la interfaz View . En este ejemplo el procedimiento se llama siempre con el valor Boolean establecido en 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

Consulte también

Objeto View

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.