Compartilhar via

Propriedade CommandBar.Protection (Office)

  • Artigo

Obtém ou define uma constante msoBarProtection que representa a forma como uma barra de comandos é protegida contra a personalização do usuário. Leitura/gravação.

Observação

[!OBSERVAçãO] O uso de CommandBars em alguns aplicativos do Microsoft Office foi substituído pelo novo componente da faixa de opções da interface de usuário do Microsoft Office Fluent. Para obter mais informações, consulte Visão geral da faixa de opções fluente do Office.

Sintaxe

expressão. Proteção

Expressão Uma variável que representa um objeto CommandBar .

Comentários

Usando a constante msoBarNoCustomize impede que os usuários acessem o menu Adicionar ou remover botões (esse menu permite que os usuários personalizem uma barra de ferramentas).

Exemplo

Este exemplo percorre a coleção de barras de comando para encontrar a barra de comandos chamada Forms. Se essa barra de comandos for encontrada, seu estado de encaixe será protegido e ficará visível.

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

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.