View.LockUserChanges プロパティ (Outlook)
返すまたは、ユーザーが現在のビューの設定を変更できるかどうかを示す ブール 値を設定します。 値の取得と設定が可能です。
構文
式。 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 のサポートおよびフィードバックを参照してください。
フィードバック
https://aka.ms/ContentUserFeedback」を参照してください。
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「フィードバックの送信と表示