View.LockUserChanges-Eigenschaft (Outlook)
Gibt zurück oder legt einen booleschen Wert, der angibt, ob ein Benutzer die Einstellungen der aktuellen Ansicht ändern kann. Lese-/Schreibzugriff.
Syntax
Ausdruck. LockUserChanges
Ausdruck Eine Variable, die ein View-Objekt darstellt.
HinwBemerkungeneise
Wenn True, der Benutzer die Einstellungen der aktuellen Ansicht ändern kann. Änderungen an der Benutzeroberfläche werden jedoch nicht gespeichert werden. Wenn False (Standard), alle Änderungen gespeichert werden.
Beispiel
Im folgenden Beispiel wird die Benutzeroberfläche für alle Ansichten, die für alle Benutzer verfügbar sind gesperrt. Die Unterroutine LockView
akzeptiert das View-Objekt und einen booleschen Wert, der angibt, ob die View-Schnittstelle gesperrt wird. In diesem Beispiel wird die Prozedur immer mit den booleschen Wert auf True festgelegt aufgerufen.
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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für