CalendarView.LockUserChanges プロパティ (Outlook)

  • [アーティクル]

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

構文

式。 LockUserChanges

式CalendarView オブジェクトを表す変数。

注釈

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

例

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

関連項目

CalendarView オブジェクト

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

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