none
Proteger BF própria. RRS feed

  • Pergunta

  • Bom dia a todos..

     

    Tenho minha própria barra de ferramentas ficando só ela disponível para ter acesso..Só que ainda não achei a propriedade para impedir que usuários à excluam...Estou tentando com esse comando mas ainda a exclusão fica disponivel..

    Application.CommandBars("Worksheet Menu Bar").Protection=??

     

    Obrigado...
    quarta-feira, 23 de janeiro de 2008 10:20

Respostas

  •  EvangelistaLion wrote:

    Correto, mas o problema está sendo na exclusão...Se a pessoa apertar com o botão direito ao lado da barra e apertar em personalizar irá aparecer uma lista de barra de ferramentas, no meu caso aparece só a minha, pq as outras usei a propriedade enabled=false, nisto a pessoa poderá excluir a BF..Seria o mesmo que entrar no Menu ferramentas e depois em personalizar e selecionar um BF propria e depois em excluir....

    Obrigado..

    Veja se esta aqui resolve o teu problema:

     

    Code Snippet

    Sub Proteger()
    For Each bar In Application.CommandBars
        If Not bar.BuiltIn Then bar.DisableCustomize = True
    Next
    End Sub

     

     

    []s

    sexta-feira, 25 de janeiro de 2008 22:34
  • Olá Adilson,

     

    Eu não sei pq não quis funcionar no meu, mas depois de umas mudanças deu certo graças a sua ajuda..

     

    Sub Proteger()

    With Application.CommandBars
            If .DisableCustomize = False Then
                .DisableCustomize = True
            End If
    End With

    End Sub

     

     

    Obrigado

    terça-feira, 29 de janeiro de 2008 12:42

Todas as Respostas

  • With Application.CommandBars("Worksheet Menu Bar")

    .Protection = msoBarNoChangeVisible
    'Esconde o X

    .Protection = msoBarNoMove
    'Trava ela impossibilitando de movê-la

    .Protection = msoBarNoResize
    'No Resize.. e assim por diante..
    'Para voltar é só tirar o NO de cara propriedade...

    End With
    quarta-feira, 23 de janeiro de 2008 12:32
  • Correto, mas o problema está sendo na exclusão...Se a pessoa apertar com o botão direito ao lado da barra e apertar em personalizar irá aparecer uma lista de barra de ferramentas, no meu caso aparece só a minha, pq as outras usei a propriedade enabled=false, nisto a pessoa poderá excluir a BF..Seria o mesmo que entrar no Menu ferramentas e depois em personalizar e selecionar um BF propria e depois em excluir....

    Obrigado..

    quarta-feira, 23 de janeiro de 2008 12:46
  •  EvangelistaLion wrote:

    Correto, mas o problema está sendo na exclusão...Se a pessoa apertar com o botão direito ao lado da barra e apertar em personalizar irá aparecer uma lista de barra de ferramentas, no meu caso aparece só a minha, pq as outras usei a propriedade enabled=false, nisto a pessoa poderá excluir a BF..Seria o mesmo que entrar no Menu ferramentas e depois em personalizar e selecionar um BF propria e depois em excluir....

    Obrigado..

    Veja se esta aqui resolve o teu problema:

     

    Code Snippet

    Sub Proteger()
    For Each bar In Application.CommandBars
        If Not bar.BuiltIn Then bar.DisableCustomize = True
    Next
    End Sub

     

     

    []s

    sexta-feira, 25 de janeiro de 2008 22:34
  • Adilson, está dando mensagem de erro (O objeto não aceita esta propriedade ou método).Tentei mudar alguma coisa mas não deu.. Meu office é o 2003...Seria por causa disso??

    Obrigado..

    segunda-feira, 28 de janeiro de 2008 10:31
  •  EvangelistaLion wrote:

    Adilson, está dando mensagem de erro (O objeto não aceita esta propriedade ou método).Tentei mudar alguma coisa mas não deu.. Meu office é o 2003...Seria por causa disso??

    Obrigado..

     

    Usei a versão 2003 para montar o procedimento e rodou normalmente.

    O resultado obtido era exatamente o que vc queria: o usuário não consegue removar a BF nem pelo atalho de teclado nem pelo menu ferramentas.

    Vou testa novamente e te aviso do resultado.

    []s

    segunda-feira, 28 de janeiro de 2008 12:25
  • Ok...Pode ser alguma referencia de biblioteca...As minhas são:

    Visual basic for Applications

    Microsoft Exel 11.0 O.L.

    Ole Automation

    Microsoft Office 11.0 O.L.

    Microsoft DAO 3,51 O.L.

    Obrigado..
    segunda-feira, 28 de janeiro de 2008 12:40
  • Vou conseguir mexer nisto hoje à noite, ok?

    Aqui no escritório já migramos para o 2007.

    []s

     

    segunda-feira, 28 de janeiro de 2008 12:49
  • Claro, quando vc puder Adilson.....Brigadão

    segunda-feira, 28 de janeiro de 2008 12:55
  • Olá, meu caro.

    Das bibliotecas que vc citou só não tenho instalada a Microsoft DAO 3,51 O.L.

    Todas as demais, e apenas elas, estão instaladas.

    Rodei novamente e funcionou corretamente...

    []s

    segunda-feira, 28 de janeiro de 2008 23:43
  • Olá Adilson,

     

    Eu não sei pq não quis funcionar no meu, mas depois de umas mudanças deu certo graças a sua ajuda..

     

    Sub Proteger()

    With Application.CommandBars
            If .DisableCustomize = False Then
                .DisableCustomize = True
            End If
    End With

    End Sub

     

     

    Obrigado

    terça-feira, 29 de janeiro de 2008 12:42