Protection 属性

全部显示

本主题中的某些内容可能不适用于某些语言。

返回或设置指定命令栏的保护方式，以防止用户改动。MsoBarProtection 类型，可读写。

说明

用常量msoBarNoCustomize 以防止用户访问“添加或删除按钮”菜单（此菜单项允许用户自定义工具栏）。

示例

本示例可实现的功能为：逐个筛选命令栏集合中的成员，以查找命令栏“Forms”。如果找到，那么本示例显示该命令栏并保护其定位状态。

foundFlag = False
For i = 1 To CommandBars.Count
 If CommandBars(i).Name = "Forms" Then
 CommandBars(i).Protection = msoBarNoChangeDock
 CommandBars(i).Visible = True
 foundFlag = True
 End If
Next
If Not foundFlag Then
 MsgBox "'Forms' command bar is not in the collection."
End If