Propriété View.LockUserChanges (Outlook)
Renvoie ou définit une valeur de type Boolean indiquant si un utilisateur peut modifier les paramètres de l’affichage actif. Lecture-écriture.
Syntaxe
expression. LockUserChanges
Expression Variable qui représente un objet View .
Remarques
Si la valeur est True, l'utilisateur peut modifier les paramètres de l'affichage actif. 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 d'après montre 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 View sera verrouillée. Dans cet exemple, la procédure est toujours appelée avec la valeur booléenne définie sur 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
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.