View.LockUserChanges プロパティ (Outlook)

返すまたは、ユーザーが現在のビューの設定を変更できるかどうかを示す ブール 値を設定します。 値の取得と設定が可能です。

構文

expression。 LockUserChanges

表現View オブジェクトを表す変数。

解説

かどうか は True 、ユーザー設定を変更できます、現在のビューのです。 ただし、インターフェイスに対する変更は保存されません。 かどうかは False (既定値)、変更が保存されます。

例

次の例では、すべてのユーザーに利用可能なすべてのビューのユーザー インターフェイスをロックします。 サブルーチン LockViewは、View オブジェクトと、View インターフェイスがロックされるかどうかを示すブール値を受け取ります。 この例では、常に 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

関連項目

ビュー オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。