通过

CommandBar.Protection 属性 (Office)

  • 项目

获取或设置一个 msoBarProtection 常量，该常量表示命令栏不受用户自定义保护的方式。 读/写。

注意

某些 Microsoft Office 应用程序中对 CommandBars 的使用已由 Microsoft Office Fluent 用户界面的新功能区组件取代。 有关详细信息，请参阅 Office Fluent 功能区概述。

语法

表达式。保护

表达 一个代表 CommandBar 对象的变量。

备注

使用常量 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

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。