Propriété CalendarView.LockUserChanges (Outlook)
Renvoie ou définit une valeur de type Boolean indiquant si un utilisateur peut modifier les paramètres de l’affichage. Lecture-écriture.
Syntaxe
expression. LockUserChanges
Expression Variable qui représente un objet CalendarView .
Remarques
Si la valeur est True, l'utilisateur peut modifier les paramètres de l'affichage indiqué. En revanche, les modifications apportées à l'interface ne sont pas enregistrées. Si la valeur est False (valeur par défaut), toutes les modifications sont enregistrées.
Exemple
L’exemple Visual Basic pour Applications (VBA) ci-dessous indique comment verrouiller l’interface utilisateur pour tous les affichages disponibles à l’ensemble des utilisateurs. La sous-routine LockView accepte l’objet View et une valeur booléenne qui indique si l’interface utilisateur View est verrouillée. Dans cet exemple, la procédure est toujours appelée avec la valeur booléenne définie sur 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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.