locked
Sub Menus RRS feed

  • Pergunta

  • Senhores.

    Com a instrução abaixo eu desabilito um item da minha barra de menu:

    Application.CommandBars("Regin").Controls(2).Enabled = False 'Desabilita menu "Administração"

    Supondo que neste menu "Administração", eu tenha os sub menus: "Tabelas"; "Usuarios"; .....
    Como desabilitar apenas o sub menu "Usuarios", do menu "Administração"?

    domingo, 1 de abril de 2007 13:37

Respostas

  • Resolvi assim.

     'MENU ADMINISTRAÇÃO

          Application.CommandBars("Regin").Controls(2).Controls(1).Enabled = False 'Sub Menu Classificação
            Application.CommandBars("Regin").Controls(2).Controls(2).Enabled = False 'Sub Menu Empregados
            Application.CommandBars("Regin").Controls(2).Controls(3).Enabled = False 'Sub Menu Órgãos
            Application.CommandBars("Regin").Controls(2).Controls(4).Enabled = False 'Sub Menu Prédios
            Application.CommandBars("Regin").Controls(2).Controls(5).Enabled = True 'Sub Menu Usuários

     

    Dica do Nelson Costa do Santos (ForumAccess)

    domingo, 1 de abril de 2007 22:16