Office VBA教程:Protection属性

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

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

MsoBarProtection 可为以下 MsoBarProtection 常量之一:
msoBarNoChangeDock
msoBarNoChangeVisible
msoBarNoCustomize
msoBarNoHorizontalDock
msoBarNoMove
msoBarNoProtection
msoBarNoResize
msoBarNoVerticalDock

说明

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

VBA示例

本示例可实现的功能为:逐个筛选命令栏集合中的成员,以查找命令栏“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教程:ProportionalFontSize属性 下页:Office VBA教程:Reduced属性

Office VBA教程:Protection属性

Office VBA教程:Reduced属性 Office VBA教程:RowCount属性
Office VBA教程:RowIndex属性 Office VBA教程:ScopeFolder属性
Office VBA教程:ScopeFolders属性 Office VBA教程:ScriptText属性
Office VBA教程:SearchFolders属性 Office VBA教程:SearchScopes属性
Office VBA教程:SearchSubFolders属性 Office VBA教程:SearchWhenProgramming属性
Office VBA教程:SecondValue属性 Office VBA教程:SelectedItems属性
Office VBA教程:Shape属性 Office VBA教程:ShortcutText属性
Office VBA教程:SignDate属性 Office VBA教程:Signer属性
Office VBA教程:Sounds属性 Office VBA教程:State属性
Office VBA教程:Style属性 Office VBA教程:Table属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号