Compartilhar via

Propriedade CommandBar.Protection (Office)

Obtém ou define uma constante msoBarProtection que representa a forma como uma barra de comandos é protegida contra a personalização do utilizador. 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 Descrição geral do friso do Office Fluent.

Sintaxe

expressão. Proteção

expressão Uma variável que representa um objeto da Barra de Comandos .

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 comandos para encontrar a barra de comandos denominada Forms. Se esta barra de comandos for encontrada, o respetivo estado de ancoragem está protegido e fica 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.

  • Last updated on