Desabilitando a faixa(ribbon) superior do Access
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
Muitos aplicativos são desenvolvidos sem o programador fazer uso de menus ou ribbons e na maioria dos projetos é necessário bloquear parcial ou completamente o acesso às ferramentas de desenvolvimento do Access para o usuário final.
No caso do Access 2007/2010 , desabilitar toda ou parcialmente a faixa superior é uma tarefa simples, acredite!
A faixa superior do Access 2007/2010 é composta dos seguintes elementos: Barra de título, Botão do Office(Arquivo no 2010), Barra de Ferramentas de Acesso Rápido e Guias
Veja, os elementos que compõem a faixa superior do Access 2007:
Uma forma radical de desabilitar
Podemos desabilitar de uma única vez, toda a parte superior do Access 2007/2010, chamando por uma função na macro AutoExec.
1. Crie a função abaixo num módulo global.
Public Function fncDesabilitarRibbon()
DoCmd.ShowToolbar "ribbon", acToolbarNo
End Function
2. Crie a macro AutoExec chamando pela função.
O aplicativo ao ser carregado passa pela macro Autoexec que executa a função de desabilitar toda a faixa superior do Access 2007/2010.
Veja como a parte superior fica totalmente limpa após o carregamento da função:
Isto é muito útil para quem possui aplicações nas versões anteriores do Access (2003, 2002 e 2000) e deseja que estas, quando rodarem nas versões do Access 2007/2010, sejam capazes de desabilitar a Ribbon. No entanto é preciso fazer uma pequena modificação na função, para que não acarrete em erro quando o aplicativo rodar nas versões originais ( 2003, 2002 e 2000).
Public Function fncDesabilitarRibbon()
on error resume next
'Desativa a ribbon do Access 2007 e 2010
If Val(Application.Version) > 11 Then
DoCmd.ShowToolbar "ribbon", acToolbarNo
End If
End FunctionVale lembrar que, com esta opção radical, não será permitido qualquer tipo de menu
Desabilitando parcialmente
Observe na primeira figura deste artigo, as guias disponíveis do Access 2007/2010: início, criar, dados externos, ... É possível desabilitar todas essas guias , deixando apenas a guia Início que é útil para muitos tipos de aplicativos.
Para desabilitar estas guias vá em: Botão do Office (Arquivo no Access 2010) > Opções do Access > Banco de dados atual. Desabilite a opção "Permitir menus completos", conforme figura abaixo:
Como resultado temos apenas a guia Início e o Botão do Office fica só com a opção "Fechar"
Como carregar apenas o menu, criado no Access 2003/2002/2000 , no Access 2007/2010
Tem um artigo completo aqui, que ensina como configurar o Access 2003/2002/2000 para carregar apenas o menu no Access 2007/2010.
Desabiltando a faixa superior através da extensão ACCDR
Uma outra forma de desabilitar a faixa superior é trocando a extensão de ACCDB para ACCDR. Veja aqui um artigo completo sobre ACCDR
O ACCDR permite que você carregue uma faixa superior personalizada, que você programa em XML.
Desabilitando a faixa superior com programação XML
Primeiro crie um tabela de nome UsysRibbons com os campos:
RibbonName - texto
RibbonXml - memorando
Abra a tabela UsysRibbons e preencha os campos:
RibbonName com : rbPrincipal
RibbonXml com :
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<commands>
<command idMso="ApplicationOptionsDialog" enabled = "false"/>
<command idMso="FileExit" enabled = "false"/>
<command idMso="Help" enabled = "false"/>
</commands>
<ribbon startFromScratch="true">
<officeMenu>
<button idMso="FileNewDatabase" visible = "false"/>
<button idMso="FileOpenDatabase" visible = "false"/>
<splitButton idMso="FileSaveAsMenuAccess" visible = "false"/>
<button idMso="FileCloseDatabase" visible = "false"/>
</officeMenu>
</ribbon>
</customUI>
Veja na figura, a tabela preenchida:
Agora vá em: Botão do Office > Opções do Access > Banco de Dados Atual e entre com o nome da ribbon na combo Nome da Faixa de Opções.
Sempre que seu aplicativo for carregado, a ribbom rbprincipal será acionada, configurando a faixa superior, conforme a programação elaborada na XML.
Bom estudo!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Aprenda sobre filtragens
Vídeo - Segurança máxima, usando o OPEN
Uma ajuda para quem está começando um negócio ou um projeto
Integrando o Access com Servidor MySQL - Introdução
Desabilitando a faixa(ribbon) superior do Access
Vídeo - Programação de relatórios - Parte 1
Como carregar o seu menu sem que ele vá para lista de suplementos
Adquira o kit UsandoAccess e aprenda em alta velocidade
|
119 comentário(s) Jorge Nelson 08/09/2023 07:21:35 Bom dia. Estou com uma dificuldade no access 2019, uso o monta ribbons, até o 2007 sem problema, mas ao migrar para o 2019 não consigo ocultar o menu arquivo no lado esquerdo o menu ENTRAR no lado direito onde abre uma janela para entrar com a conta microsoft. Alguém com esse problema e já encontrou uma solução? Os demais menus consegui ocultar sem problema. Obrigado e abraço a todos. Avelino Sampaio 26/08/2023 03:58:13 Nilson Veja este meu artigo: https://www.usandoaccess.com.br/ribbons/esconder-a-guia-folha-de-dados-na-ribbon.asp#video Sucesso! Nilson 23/08/2023 14:33:01 Olá Avelino, boa noite! Estou com um pequeno problema nas minhas ribbons que não consegui resolver. Quando estou com um formulário com um subform em modo de folha de dados, mesmo com a ribbon personalizada abre a guia de folha de dados quando o usuário clica em qualquer linha da folha de dados, inclusive com o botão de mode de design. É possível resolver isso? José Geraldo da Trindade 28/12/2022 18:02:04 Boa tarde! Prezado Avelino sou seu aluno em um dos seus cursos e gostei muito... Estou precisando de uma ajuda, criei um formulário de ficha de produtos, nesse formulário tenho a opção de três campos para cores, caso eu só tenha uma cor eu gostaria de ocultas ou outros dois campos, caso tenha duas cores oculta só o terceiro campo. Obs: Já criei as funções visível True e false, más só está funcionando quando saio e entro novamente no formulário, quando coloco para atualizar ele não está ocultando. Espero ter me feito entender... Antecipadamente agradeço atenção, José Geraldo João Alexandre 10/12/2022 22:04:43 Prof. Avelino Valeu a dica. Funcionou melhor do que eu esperava. Era tudo que eu precisava, por enquanto. Obrigado! EDMILSON 10/12/2022 14:35:24 Prof. Avelino boa tarde! Sou iniciante em access, e gostaria de tirar uma dúvida: Em um formulário criei uma caixa de combinação para escolher um valor em uma lista de valores. Mas antes, este valor deve assumir um valor igual ao valor existente em outra caixa de combinação, se o valor de outro campo não for vazio. A expressão inserida no valor padrão ficou a seguinte: =SeImed([FIM 2]<>0;[Combinação333];0). Até ai tudo bem. O problema é que preciso que este valor seja atualizado seja atualizado a medida que essas condições mudem quando estou inserindo os dados no formulário e isso só ocorre depois que saio do formulário e entro novamente. Como faço pra resolver isso...o que estou deixando de fazer para isso acontecer? Avelino Sampaio 30/11/2022 11:49:23 João, creio que só seja possível através de um ribbons personalizada, conforme mostrado no artigo acima. A linha abaixo, contida na XML, desabilita o conteúdo do Access rápido. < ribbon startFromScratch="true" > Eu vendo um kit completo aqui pelo site, que vai te ensinar passo a passo a montagem de ribbons personalizadas. Sucesso! João Alexandre 29/11/2022 12:16:22 Eu queria desabilitar somente a seta da barra de ferramentas de acesso rápido. Isto é possível? Agradeço antecipadamente a quem me responder. Camilo Sousa 10/11/2022 21:44:29 Parabéns pelo site e pela ajuda estou aprendendo bastante com suas dicas hoje me ajudou bastante na interface do meu projeto. Avelino Sampaio 16/10/2022 05:04:10 Tino, utilize a função Eval() para analisar a expressão. Exemplo: Dim strOperador as String Dim num1, num2 vTotal as Double num1=10 num2=5 strOperador = "+" vTota l= eval(num1 & strOperador & num2) Sucesso! Tino 14/10/2022 23:55:31 Boa noite Ms. Avelino, Gostaria de saber se tem como converter uma variavel string em um operador matemático ou lógico no Access ou VB 2010 Ex: Dim strOperador as String Dim num1, num2 vTotal as Double num1=10 num2=5 vTotal=num1 strOperador num2 então vTotal seria 10+5 = 15 obs: não queria usar o split ou Instr para encontrar o operador Muito obrigado Anderson Munhoz Madeira 28/09/2022 08:53:51 Bom dia Avelino, Enviei um projeto dividido e front e back end, com a função fncDesabilitarRibbon(), também com a função fncchecavinculo(). Fiz o projeto em Access 2010 e lá no destino o Access é 2013. Estou tendo o seguinte problema: "Erro ao compilar esta função. O módulo Visual Basic contém um erro de sintaxe. Verifique o código e recompile-o." Em seguida entra na tela de Macro Passo a Passo: Macro AutoExec, Argumento: fncDesabilitarRibbon() e Erro:7960. Na verdade não sei se é devido a fncDesabilitarRibbon() ou a fncchecavinculo(). Pois não tinha este problema antes da fncchecavinculo(), apesar de que também não estava dividido em front e back end. Meu caro professor, será que possível dar-me uma dica de como resolver este problema? Abraços Avelino Sampaio 26/09/2022 04:50:42 Ney, abra um tópico no meu fórum sobre o assunto. No aguardo ney Santos 26/09/2022 02:54:11 prezado Avelino a muito ja tinha lido esse tutorial, ai acabei vendo esse outro pois me incomodava a aba arquivo ficar aberta. Agora não consigo reverter paar que meu menu volte. Eu uso o 2010 Avelino Sampaio 25/09/2022 05:36:30 Ney, se o seu Access for o 2007 ou o 2010, utilize este meu outro artigo: http://www.usandoaccess.com.br/dicas/carregar-menu-guia-suplementos-ribbon.asp?id=1&idlista=10#inicio. Nota 1: Volta a habiltar a guia arquivo. Nota 2: Se o seu Access for o 2013 ou o 2016 o seu estará aprisionado na guia suplemento da ribbon. Sugiro a aquisição do meu MontaRibbons Te convido a participar do meu fórum: http://www.redeaccess.com.br Sucesso! ney Santos 25/09/2022 05:22:09 Avelino segui sua dica de como desablitar o conteudo da guia arquivo Pore agora meu menu personalizado que foi criado no 2003 nao esta aparecendo Leandro 23/09/2022 18:53:19 Sim, já a estou utilizando...criei a função publica abaixo: Public Function fncDesabilitarRibbon() DoCmd.ShowToolbar "ribbon", acToolbarNo End Function E chamo ela dentro da Autoexec, porém parece que a Autoexec nao executa ao abrir o sistema...mas se clico diretamente na macro o painel se esconde... Avelino Sampaio 12/09/2022 04:07:29 Leandro utilize o comando: DoCmd.ShowToolbar "ribbon", acToolbarNo Sucesso! Leandro 09/09/2022 13:39:19 Funciona na versão 2016? coloquei a função na AutoExec e nao roda nada ao abrir...porém se executar a macro diretamente (clicando sobre ela) funciona... Abs! Avelino Sampaio 06/08/2022 13:29:04 Fábio, vá na seção 'Tutorias" aqui do site e veja o artigo " Vídeo - Criando Ribbons parte 4 - Imagens Externas" Bom estudo! Fábio César 06/08/2022 11:05:56 Avelino, inicialmente, quero te parabenizar pelos ótimos exemplos e ajuda que você disponibiliza no seu sítio. Sempre acesso este espaço para resolver alguns problemas que surgem e você sempre com seus exemplos me ajuda bastante. Por isso, hoje, trago uma dúvida relacionada aos ícones da faixa de menu (ribbons), por exemplo: < tab id="Principal" label="Principal" > < group id="grpPool" label="Principal" > < button id="cmdPendenciaList" size="large" label="Pendência Consulta" imageMso="RecordsAddFromOutlook" onAction="Ribbon.Pendencias" /> < separator id="Pendencia" /> < button id="cmdPendenciaIncl" size="large" visible = "true" label="Controle de Pendentes" imageMso="AddToolGallery" onAction="Ribbon.PendenciaInclusao" /> < /group > < /tab > É possível inserir no ítem imageMso novos ícones diferentes daqueles que já estão na “biblioteca” do access 2010? Baixei vários ícones da web formato .ico e .png, como inseri-los nas minhas ribbons? Mais uma vez agradeço e parabenizo pelo brilhante trabalho. Abraços, Fábio Avelino Sampaio 14/07/2022 05:39:57 Gilberto, Habilite a detecção de erros do Access que você irá descobrir a causa. Botão Arquivo > Opções > Configurações do cliente > Marque "Mostrar erros da interface de usuários em suplementos" Sucesso! Gilberto Martins dos Santos 12/07/2022 19:21:29 Estava desenhando e de repente a Ribbon sumiu e eu não estou conseguindo faze-la voltar poderia me ajudar? AutoCad 2014 Claudio 29/06/2022 16:49:14 função para converter utf-8 para iso-8859-1 no ACCESS? tenho algo parecido no excel, mas no access não funciona 100% Public Function fnConverterUTF8(ByVal Texto_para_converter As String) Dim l As Long, sUTF8 As String Dim iChar As Integer Dim iChar2 As Integer For l = 1 To Len(Texto_para_converter) iChar = Asc(Mid(Texto_para_converter, l, 1)) If iChar > 127 Then If Not iChar And 32 Then iChar2 = Asc(Mid(Texto_para_converter, l + 1, 1)) sUTF8 = sUTF8 & ChrW$(((31 And iChar) * 64 + (63 And iChar2))) l = l + 1 Else Dim iChar3 As Integer iChar2 = Asc(Mid(Texto_para_converter, l + 1, 1)) iChar3 = Asc(Mid(Texto_para_converter, l + 2, 1)) sUTF8 = sUTF8 & ChrW$(((iChar And 15) * 16 * 256) + ((iChar2 And 63) * 64) + (iChar3 And 63)) l = l + 2 End If Else sUTF8 = sUTF8 & Chr$(iChar) End If Next l fnConverterUTF8 = sUTF8 End Function Avelino Sampaio 22/06/2022 11:41:45 Edielson, vc pode usar a filtragem na chamada do relatório. Exemplo: docmd.OpenReport "NomeRelatório",acViewPreview ,,"Format([dataLancamento],'mm') = " & me!NomeCampoMês Traga a sua dúvida para o nosso fórum e ofereça mais detalhes: http://www.redeaccess.com.br Edielson 22/06/2022 10:54:32 Bom dia! Pessoal, preciso de uma ajuda, gostaria de saber como posso criar um relatório que gere o mês, tipo assim, eu digito o mês em campo data e ele me aparece os campos dos meses todo em todos registro do relatorio marcio sampaio 27/04/2022 06:08:59 Bom dia Avelino Parabéns pelo site, deu certo, agora sim já tava doido aqui sem conseguir acesso. abraço Avelino Sampaio 27/04/2022 02:09:43 Marcio, mantenha pressionada a tecla SHIFT na inicialização. marcio sampaio 26/04/2022 17:30:54 Ola pessoal gostei do código para desabilitar a faixa superior do access. usei o codigo XML que contem na descricao exemplo aqui como faço para reverter esta operacao, pois sumiu tudo mas agora nao consigo acesso para alterar um formulario ou tabela. Nao aparece o item Opcoes No aguardo e obrigado Alan Rodrigo 06/03/2022 17:51:27 Avelino, Boa noite. Por favor, gostaria de saber se é possível ao selecionar uma ribbon automaticamente é aberto um formulário, mas seria só de selecionar uma ribbon para ser exibida? Felipe 25/02/2022 10:27:33 Gostaria de saber como desativar a opção impressão no access runtime 2010. No acesss 2007 defini na macro autokeyss o comando ^p, no entanto no 2010 esse comando não desativa a opção de impressão Avelino Sampaio 02/02/2022 08:09:30 Moura, como está configurando ? Usou a linha: DoCmd.ShowToolbar "ribbon", acToolbarNo ? Moura Santoli 31/01/2022 18:49:52 Não consigo ocultar a aba INÍCIO na barra de ribbons do OFFICE 2010. Onde estou errando? Abraços! Avelino Sampaio 10/01/2022 04:38:29 Alan, não entendi muito bem a sua questão. Vc quer um botão na ribbon que acesse uma página web específica ? Se for isso, sim é perfeitamente possível! Como exemplo, baixe o aplicativo MAESTRO da seção download aqui do site. A ribbon tem um botão que aponta para o meu site. Ofereça mais detalhes pelo nosso fórum: http://www.redeaccess.com.br No aguardo Alan Rodrigo 10/01/2022 04:28:09 Avelino, Bom dia, tudo bem? Por favor, saberia informar se é possível colocar um navegador de web na ribbon? LUIZ ANDRÉ MOREAUX NUNES JUNIOR 18/12/2021 09:49:37 Avelino, montei uma ribbon, via XML, e queria habilitar/desabilitar alguns itens dinâmicamente (em função do acesso de cada usuário). Como posso fazer isso? Carlos Hygino Accurso 04/12/2021 09:22:03 Avelino Desenvolvi um aplicativo Web Access que está hospedado no AccessHosting. Ao acessar o site fica disponível um botão de opções dentre as quais a opção de OPEN IN ACCESS. Qualquer usuário pode baixar a aplicação para a sua máquina o que é indesejável. Não existe maneira de sumir com essa opção. A MS disponibiliza um vídeo em ( http://blog.accesshosting.com/preventing-web-users-from-opening-your-database-in-access-2010.html) mostrando como configurar um usuário sem acesso a essa opção, o inconveniente é que os relatorios param de funcionar. O livro Access 2010 Inside Out informa que isso aconteceria mas no vídeo da MS o relatorio aparece. Resolvi recorrer a voce porque apesar de ser um entusiata do Access o aparecimento dessa opção inviabiliza totalmente qualquer desenvolvimento comercial Atenciosamente Avelino Sampaio 29/11/2021 13:32:35 Hebertt, vá na seção Tutorias aqui do site e veja o artigo sobre "Macro de segurança" Sucesso! Hebertt 29/11/2021 11:53:03 Amigos, montei um pequeno controle em Access 200, em alguns computadores funciona normal e em outros ele trava todas as macros e botões .. o que tenho que fazer para que estes micros habilite as macros/botões? Desde já agradeço luis 27/11/2021 06:00:05 Muito bom! Avelino Sampaio 03/11/2021 19:39:23 Vanderlei, as ribbons só funcionam para relatórios no modo "Visualização de impressão". Portanto no modo "relatório" não funciona. Sucesso! Vanderlei 03/11/2021 19:32:50 Olá Avelino Não estou conseguindo carregar a ribbon rbimpressão com os icones ativos, somente o IMPRIMIR e PDF ficam ativos. Onde estou pecando ?, não consigo enxergar nada de errado. Avelino Sampaio 03/11/2021 06:17:02 Gilberto Teixeira, não entendi muito bem sua pergunta. Baixe o aplicativo exemplo Maestro, aqui da seção Downloads, que terás um exemplo de como configurar a ribbon, conforme usuário logado. Sucesso! GILBERTO TEIXEIRA 01/11/2021 16:16:50 seria possivel desabilitar uma opção gerada no montaribbons conforme o usuario logado? Avelino Sampaio 25/10/2021 07:02:37 Rodrigo, Se você tem a ribbon salva na tabela USysRibbons ou na tabela tblRibbons, basta abrir a lista de propriedades do objeto (formulário ou relatório) e indicar o nome da ribbon na propriedade "Nome da Faixa de Opções" Sucesso! Rodrigo Werneck 24/10/2021 10:40:33 Avelino Bom dia Não sei se você já falou ou mencionou em algum lugar . Preciso ativar uma guia ou um grupo personalizado (O que for mais fácil, somente quando um formulário ou relatório estiver aberto. Pois assim evito erros de usuarios. Como faço isso? Já sei criar Ribbon Personalizado mais ainda não sei fazer isso. Avelino Sampaio 05/10/2021 08:22:38 Ronilson, faltou vc informar qual é a versão do Access usado com o Windows Xp. Se for a versão 2007 vc tem que baixar o pacote Sp3 no site Microsoft e atulizar o seu Office. Com esta atualização o PDF costuma funcionar bem. Sucesso! Ronilson Jose da Silva 04/10/2021 08:52:02 Bom dia Estou com pequeno problema na ribbon impressão tenho o botão na ribbon gerar PDF. No meu pc com Windows 7 funciona perfeitamente mas no pc com Windows XP ela aparece mas fica desabilitada alguém poderia me ajudar. < button idMso = "PublishToPdfOrEdoc" enabled="true" size="large" label="PDF" visible="true" / > esta é minha linha da XML. Grato Guilherme Schuck 27/09/2021 19:22:39 Boa noite, primeira mente gostaria de agradecer Avelino, graças suas dicas consegui arrumar meu projeto.. Consegui reparar o erro que estava tendo, ativei todas macros, com segurança. Guilherme Schuck 27/09/2021 12:46:13 Boa tarde, sou leigo no access ainda, fiz oque você falou, seguem nas imagens: http://i45.tinypic.com/14t3hc5.jpg e http://i50.tinypic.com/2m7c7pz.jpg mas não ocultou a ribbon. oque pode ter de errado? Avelino Sampaio 27/09/2021 07:37:55 Guilherme, Para se evitar o erro 2950 na macro Autoexec vc deve utilizar a coluna CONDIÇÃO da macro. 1) altere a função , para que ela retorne um volor Boolean (false/true). Acrescente TRUE no final da função. Public Function fncDesabilitarRibbon() as boolean On Error Resume Next DoCmd.ShowToolbar "ribbon", acToolbarNo fncDesabilitarRibbon = true End Function 2) chame a função pela coluna CONDIÇÃO da macro fncDesabilitarRibbon() = false e na coluna AÇÃO coloque "sair" Sucesso! Guilherme Schuck 26/09/2021 23:25:55 Boa noite, eu uso o Access 2007, tenho um projeto, executei as ações que foram passadas no tutorial, mas quando abro o banco de dados, ele oculta a ribbon, mas da o erro numero 2950, dai eu clico em parar as macros e ele volta ao normal, tem algo que eu possa fazer para concertar isso? ou talvez fiz algum passo errado? Fabiana 22/09/2021 01:52:11 Avelino,boa noite! Eu gostaria de saber como habilito dentro de suplemento :comando de menu,barra de Ferramentas personalizada. Obrigada figueiredo 06/09/2021 13:11:32 bom dia parabéns pelas dicas, fiz o teste usando a criação da tabela, porém não consigo acessar a tabela para efetuar alteração no código. Obrigado pela atenção Domingos Oliveira 20/08/2021 17:52:54 Prezado Avelino, Após adquirir sua Coletânea (já recebi a atualização de Julho), melhorei meus BDs em vários aspectos, tornando-os mais seguros e de fácil manutenção. No entanto, tem um detalhe que não tem jeito e não consigo fazer a rotina cumprir sua finalidade que é esconder TOTALMENTE a barra de ribbons (com toda certeza alguma coisa estou fazendo errado). O que vc recomenda nesse artigo acima está implantado, mas a aba INICIO teima em não quer ficar oculta....as outras desaparecem.... Onde errei ? Abraço Domingos Avelino Sampaio 16/08/2021 07:43:22 José A guia Arquivo não tem como desabilitar, porem todo o seu conteúdo pode ser personalizado ou limpo. No MontaRibbons tem um ribbon exemplo, chamada de rbLimpar2010. Carregue esta ribbon e logo após clique no botão “Atualizar Backstage..” e veja então como fica o interior da guia Arquivo. Qualquer outra dúvida não hesite em perguntar. Sucesso! José Donizeth Rodrigues 15/08/2021 08:34:51 Avelino, Montaribbons porém no access 2010 não consigo desabilitar a guia arquivo em meus aplicativos, mesmo criando uma nova ribbon a guia arquivo continua aparecendo. Flávio 01/08/2021 10:00:04 Olá Avelino, tenho a mesma dúvida do amigo Rodrigo, "Só mais uma questão relacionada a rich text: na textbox, quando eu seleciono parte do texto e movimento o ponteiro do mouse um pouco para cima, aparece uma barra flutuante (que descobri se chamar Mini Barra de Ferramentas) com as principais formatações (negrito, itálico, sublinhado...) Tem como desativá-la?" contudo não encontrei o caminho por você especificado. Utilizo o windows 7 com o office 2010, existe alguma diferença no procedimento? Grato pela atenção. Leonardo Vellinho 29/07/2021 11:32:23 Muito bom o conteúdo e muito útil também, mas eu tive um problema ao colocar em atividade essa macro, tive um erro que diz que a ação falhou e dá o número do erro 2950, e não consigo fazer funcionar. Fiz umas pesquisas e me falaram para mexer na parte de confiabilidade, gostaria de, se possível, uma ajuda ou uma luz de como posso arrumar isso. Octavio 03/07/2021 11:40:51 Obrigado Avelino. o artigo me foi util Avelino Sampaio 02/07/2021 04:54:38 Erika, você tem que ativar o assistente, que fica no conjunto das ferramentas. Se não encontrar, procure no help sobre "assistente" Sucesso! Erika Perez 01/07/2021 15:23:23 Avelino, Gostaria que me ajudasse na seguintes questão: meus botoes da ferramentas de design de formulário não estão solicitando o comando para ser inserida, quando clico na ferramenta que preciso ela entra no formulário direto sem dar opções de escolha. exemplo: um simples botão para fechar formulário, cliclo em botao e ele aparece dureto no formulário e não abre a caixa para selecionar o tipo de botao ou se é para por nome ou texto. o que fazer neste caso??? Celeste 14/06/2021 08:08:30 Ola pessoal gostei do código para desabilitar a faixa superior do access. usei o codigo VBA que contem a função fncDesabilitarRibbon() mas preciso de uma ajuda como fosso para voltar a habilitar o painel de navegação e a barra de menus do access novamente porque pode se dar o caso em que eu precise de fazer backup dos dados, para isso tenho que ter acesso ao painel de navegação para pagar os dados das tabelas e a barra de menus para ter acesso ao codigo VBA. Agradecia que me ajudassem Oldri 09/06/2021 10:27:19 Prezado Avelino, ao usar a função abaixo Public Function fncDesabilitarRibbon() on error resume next 'Desativa a ribbon do Access 2007 e 2010 If Val(Application.Version) > 11 Then DoCmd.ShowToolbar "ribbon", acToolbarNo End If End Function no Office 2003, retorna o erro "o conjunto de eventos não é suportado pelo objeto ou classe". Há como solucionar este problema? Obrigado Oldri Avelino Sampaio 28/05/2021 08:18:24 Luiz, copie ecole o link abaixo no seu navegador e dê uma garimpada. http://comunidade.itlab.com.br/eve/forums?a=search&reqWords=Bematech Sucesso! Luiz Kang 28/05/2021 08:06:11 Bom dia Avelino... Não consigo configurar meu relatório para imprimir numa impressora bematech. Sera que vc poderia me ajudar?? Avelino Sampaio 23/05/2021 04:53:56 Ricardo, se vc utilizou o comando "DoCmd.ShowToolbar "ribbon", acToolbarNo" para ocultar a faixa superior, não terá como personalisar. Vá no tutorial "Ribbons - Frutos do Suporte" aqui do site e ative a opção do Access, que informa erros nas ribbons. Questão de número 9 O site tem várias vídeos-aulas sobre personalização de ribbons. Sucesso! Ricardo Ravelli 22/05/2021 15:26:35 Boa tarde a todos. Eu fiz o procedimento acima, porém o ribbon personalizado não aparece. Eu até consegui ocultar o ribbon padrão do Access, mas o personalizado não aparece no sistema. Alguém sabe o que pode estar acontecendo? Obrigado. Avelino Sampaio 22/05/2021 06:38:54 Wilmar, vá na setinha preta que tem na barra de ferramentas de acesso rápido, depois clicar em mais comandos, na opção barra de ferramentas de acesso rápido, na combobox de "Escolher Comandos em:", ver se aparece o nome "Guia Arquivo" e ver se aparece algo, ou então ali embaixo tem a opção "redefinir todas as personalizações" pra ver se dá certo. Sucesso! Wilmar Vigilato 18/05/2021 15:19:23 Acidentalmente ocultei o botão Office do excel 2010 e não consigo reexibi-lo.Tem como me socorrer Alessandro 14/05/2021 13:44:44 Boa Tarde!! Pessoal, preciso muito urgente de uma solução para o meu banc de dados access 2003. criei 5 tabelas com as mesmas informações a ser cadastradas, mas setores diferentes…..por exemplo… IP 192.168.80.50 setor de compras IP 192.168.70.50 setor de RH ip 192.168.90.50 setor administrativo IP 192.168.100.50 setor logistica gostaria de saber se tem como fazer uma consulta no access para consultar os IPs das 5 tabelas…………..e mostrar qual setor esta o IP. Weder 07/05/2021 15:27:12 Procedimento seguido conforme orientações. Deu tudo certo! Agora o projeto está mais limpo para ser executado pelo usuário final. Obrigado! Avelino Sampaio 21/03/2021 06:18:02 Jean, sim, é possivel! Só não teras como ocultar o botão do Office (access 2007) ou uia ARQUIVO (access 2010). Veja no link abaixo uma imagem aonde eu demostro o uso somente da QAT http://www.expertaccess.com.br/forumnew/forum_posts.asp?TID=24615&PN=1 Terá que aprender a personalizar a ribbon. Assista minhas aulas sobre ribbons. Sucesso! Jean Gerard 20/03/2021 20:36:49 Avelino, aprecio muito sua disposição para abrir seus conhecimentos para nos demais. Quando eu descobri seu site, já tinha gasto um tempão para achar uma saída para este Ribbon - no meu ver, pela qtde de dúvidas que gerou, um tiro no pé da MS para o ACCESS. Site excelente e explicações contundentes, todavia para o que gostaria de fazer, e outros tb - vide http://www.mrexcel.com/forum/showthread.php?t=563975, ainda não achei uma solução, bem possível que não existe mesmo. A barra de ferramentas de acesso rápido (QAT) pode ser configurado para conter todos os botões que um usuário pode precisar. Então por que no sumir com o UI ribbon e manter a QAT? Tentei DoCmd.ShowToolbar "Ribbon", acToolbarNo DoCmd.ShowToolbar "QuickAccessToolbar", acToolbarYes e outras coisas mas nada que funciona. Este QAT tem um controle autônomo? TICO 27/02/2021 11:51:58 Tico 25/02/2014 15:45:39 Boa Tarde!!! Caro Avelino tenho a seguinte necessidade: no Excel tenho a tabela; linha 1: coluna A coluna B linha 2: carro 1 linha 3: carro 2 linha 4: moto 2 se a linha posterior repetir na coluna A e Coluna B = 2 para ter uma resposta basta eu colocara a seguinte fórmula: =SE(E(A3=A2;B2=2);1;"") com base em uma tabela do mesmo tipo é possível fazer uma consulta no ACCESS 2007 com esta expressão? Lupércio 15/02/2021 23:31:25 Funcionou perfeitamente Avelino, vc é um genio! Meus respeitos! Avelino Sampaio 28/01/2021 05:10:52 Anderson, O Access possui um assistente (acesso pela ribbon "Ferramentas de Banco de Dados") que auxilia na divisão do aplicativo. Assista o inicio do vídeo do tutorial "Segurança Máxima usando o OPEN" que eu demonstro como usar o assistente. Sucesso! Anderson 26/01/2021 13:40:12 Como dividir o banco de dados em back-end e front-end no access 2007 ? Avelino Sampaio 20/01/2021 06:14:57 Rodrigo, terás que criar uma chave do tipo REG_DWORD, no registro do Windows, de nome "AllowSelectionFloaties" e no seguinte endereço: HKEY_CURRENT_USER\Software\Microsoft\office\12.0\Common\Toolbars\Access\AllowSelectionFloaties 0 - Desativa a Mini Barra 1 - Ativa a Mini Barra Sucesso! Rodrigo 19/01/2021 21:52:37 Só mais uma questão relacionada a rich text: na textbox, quando eu seleciono parte do texto e movimento o ponteiro do mouse um pouco para cima, aparece uma barra flutuante (que descobri se chamar Mini Barra de Ferramentas) com as principais formatações (negrito, itálico, sublinhado...) Tem como desativá-la? Avelino Sampaio 18/01/2021 04:27:40 Daniel, está no site certo para aprender sobre as versões 2007, 2010 e 2013. Aqui na seção DICAS tem um vídeo da Microsoft que faz uma apresentação da versão 2007. É o último artigo da lista. Bom estudo! daniel mantovani 18/01/2021 01:08:26 não sei como usar o sistema , ele é novo pra mim. help 08/01/2021 21:57:54 Preciso criar um usuário e um administrador no access 2007. Para o usuário no máximo digita os dados. help !!! help 08/01/2021 21:23:06 onde fica esse módulo global ? onde coloco a função ? sou iniciante !!! help !! Ivelton Soares 08/01/2021 14:22:15 Parabéns!!! A dica me ajudou bastante, já havia perdido uma manhã procurando na internet e nada Glauco Henrique 10/11/2020 11:13:51 Valeu pela dica!!!!!!!!!!!!! pefeita a expilcação e não restou nenhuma dúvida. Avelino Sampaio 29/10/2020 06:44:42 Anderson, Passar simplesmente para ACCDE e parar de funcionar a função não faz muito sentido. Se vc usa um formulário de abertura, passe a usar a função no evento "Ao abrir". Verifique também seus códigos: Abra o VBA, clique no menu DEPURAR e mande COMPILAR. Se acusar erro, corrija. Quanto a MACRO DE SEGURANÇA: Esta desabilitada ou configurado como local seguro. Sucesso! ANDERSON MUNHOZ MADEIRA 26/10/2020 22:42:25 Meu email : semear2@hotmail.com ANDERSON MUNHOZ MADEIRA 26/10/2020 22:41:16 Não canso de admirar seu trabalho, tudo que melhor aprendi foi através de você, logo estarei adquirindo seu material para me aperfeiçoar. Bem, quero dizer que usei por algum tempo a função fncDesabilitarRibbon() com muito sucesso, mas de um tempo pra cá quando alterava meu BD para ACCDE passei a ser surpreendido por uma mensagem de erro: "A expressão que você inseriu possui um nome de função que o SEU BANCO DE DADOS não pode localizar" . Após ENTER aparecia:Ação falhou: Nome da Macro: AutoExec - Condição: Verdadeiro - Nome da Ação: ExecutarCódigo - Argumentos:fncDesabilitarRibbon() - Número do Erro:2950. Pode me dar uma dica do que poderia estar acontecendo? Grande abraço. Marcos Elder 11/10/2020 00:20:18 Avelino, sou iniciante em access e essas 2 dicas para mim foram excelentes (todas 2 funcionaram). Gostaria de saber porque não visualizo a tabela UsysRibbons no painel de navegação e se é possível redimensionar o tamanho da janela quando o aplicativo for aberto? Se for possível poderia passar a função ou xml? Muito obrigado e parabéns por compatilhar e divulgar seu conhecimentos. Avelino Sampaio 10/09/2020 05:36:30 Reinanldo, entre em contato, aqui pela seção "contato" do site e explique melhor o que deseja. No aguardo reinaldo 08/09/2020 11:21:13 preciso criar um aplicativo de impressao no access 2003 Avelino Sampaio 19/07/2020 05:21:56 Lauro Experimente, passando o código para o evento "Ao abrir" do seu formulário login: Private Sub Form_Open(Cancel As Integer) 'Desativa a ribbon do Access 2007 e 2010 If val(Application.Version) > 11 Then DoCmd.ShowToolbar "ribbon", acToolbarNo End If End Sub No aguardo Lauro 18/07/2020 23:34:27 O código do erro correto é 2950 e não 2930 abraços Lauro 18/07/2020 23:25:06 No autoexec coloquei a instrução cfe., descrita, para esconder os menus, so que na linha abaixo coloquei abrir formulário de login, so que ao abrir da erro, poderia me ajudar, erro 2930. ou seja coloquei os dois comandos na macro autoexec. André Luis 14/07/2020 08:14:09 Valeu pela dica, muito bom. Obrigado. Avelino Sampaio 14/07/2020 07:15:12 João, desabilitar o botão grande, só da forma radical. Tem como desabiltar todo o conteúdo do botão grande através da programção XML da ribbon. joão 13/07/2020 10:33:38 idem mensagem do claudio. seria possível? muito bom mesmo essa dica. parabens Avelino Sampaio 06/07/2020 08:30:49 Rodolfo, Você deve desabilitar a macro de segurança, para que funcione o código. Vá no tutorial "macro de segurança" aqui do site e veja o procedimento. Sucesso! Rodolfo Lemos 05/07/2020 12:02:35 Avelino, fiz a desabilitação radical e não funcionou, coloquei o comando If Application.Version > 11# Then DoCmd.ShowToolbar "ribbon", acToolbarNo End If no 'Ao Abrir' e nada acontece. Pela macro autoexec dá erro. Lembrando que toda vez q abro o BD aparece aquele aviso de habilitação de macros. Não sei se está ai o problema! Eduardo 30/06/2020 10:23:13 Avelino, fiz isso porque caso eu deixasse sem nenum código, a faixa para impressão, zoom ou salvar em PDf não seria mostrada. Se eu colocasse com o final acToolbarYes, ao sair do relatório, a aba Arquivo seria mostrada no restante do projeto. Então, inseri o acToolbarNo no evento ao sair do relatório e agora, a aba Arquivo e Relatório só aparecem no relatório. Fiz mil testes e ainda não apresentou nenhum erro. Não sou expert em Access e por isso, realmente não sei se pode ocorrer algum dno ao projeto. Avelino Sampaio 30/06/2020 08:15:31 Eduardo, huumm, não me agradou muito esta técnica mas se atender ao seu projeto está valendo! Sucesso! Eduardo 29/06/2020 12:40:40 Para habilitar a guia de impressão no relatório eu inseri no seu evento Ao Abrir: If Application.Version > 11# Then DoCmd.ShowToolbar "ribbon", acToolbarYes End If e no evento Ao Sair: If Application.Version > 11# Then DoCmd.ShowToolbar "ribbon", acToolbarNo End If Pois, caso deixe somente o segundo, a Guia de impressão não apareceria no Relatório. Avelino Sampaio 29/06/2020 12:32:45 Pedro Sena, Acesse o endereço abaixo e tente o código proposto: http://accessvbafaq.mvps.org/item.asp?pagina=78 Eduardo, Nesta situação vc realmente fica sem qualquer opção de ribbon. Use o CTRL + P ou parta para uma personalização das ribbons. Tem aqui no site, artigos e vídeos para vc aprender. baixe também o aplicativo exemplo MAESTRO, para ter uma idéia de como fica a personalização. Sucesso! Eduardo 29/06/2020 12:22:57 If Application.Version > 11# Then DoCmd.ShowToolbar "ribbon", acToolbarNo End If O código acima funiconou no Office 2010, porém, os relatórios abrem sem a guia e assim, sem a possibilidade de impressão. Pedro Sena 29/06/2020 09:46:48 Estou precisando de um comando para imprir através de um formulário no access um documento no word. Avelino Sampaio 27/06/2020 17:20:35 Rogerio, O nome da ribbon aparece na combox "Nome da faixa de opções" em Banco de Dados Atual ? Criou os campos exatamente com o nomes RibbonName e RibbonXml ? no aguardo rogerio 25/06/2020 07:13:10 Amigo por favor me ajude! fiz tudo certinho Inclusive Copiando e Colando do seu site, criei a tabela com o nome UsysRibbons e o código xml, porém nada acontece. mayara fernanda 20/06/2020 19:59:09 Obg pela dica , ajudou bastante! sandro 20/06/2020 18:49:37 valeu amigo, ótimo site! Avelino Sampaio 14/06/2020 10:03:28 Katia, mesmo assim ainda não é uma forma minimamente segura. Procure no Google com a seguinte frase: AllowBypassKey Access 2007 Você irá encontrar soluções tanto para habilitar como para desabilitar a tecla shift . Minha sugestão é que vc altere a extensão de ACCDB para ACCDR e então utilize o OPEN, que eu ofereço aqui no site gratuitamente. Sucesso! Kátia Fernandes 14/06/2020 07:53:47 Avelino Gosto muito das suas aulas. Gostaria de saber como faço para desabilitar a tecla shift no access 2007, pois fiz o controle de acesso que você disponibilizou no maestro, mas se alguém colocar a tecla shift abre tudo. Desde já agradeço. Valdeir 10/03/2020 16:06:52 A dica foi muito útil. Estava querendo desabilitar tudo no Access 2010 e não estava conseguindo. Assim sendo, seguindo suas orientações, "Ao abrir" do formulário principal, inseri o código: If Application.Version > 11# Then DoCmd.ShowToolbar "ribbon", acToolbarNo End If E ficou ótimo! Cláudio 24/02/2020 09:55:24 Caro Avelino Bom dia Parabéns pela dica. O bloqueio radical da ribbon funcionou perfeitamente, porém ainda existe um pequeno problema para mim: gostaria de desabilitar também o botão grande no canto superior direito e a seta pequena para baixo que dá acesso as funções "inicializar" no banco de dados. isso é possível de alguma forma? Um grande abraço! Avelino Sampaio 19/02/2020 00:25:17 Paulo É possível apenas montar uma pacote de distribuição. Neste pacote de distribuição (exe) você embala o seu projeto e mais o runtime do Access, se necessário. Veja neste meu artigo: https://www.usandoaccess.com.br/tutoriais/montar-pacote-distribuicao-usando-istool.asp?id=1#inicio paulo gesse da costa 18/02/2020 15:35:39 como fazer um executavel no access.? paulo gesse da costa 18/02/2020 15:34:40 como usar o open no RUN TIME do access? esta ferramenta é show mas é necessário ter a instalação do access na maquina do usuário (o que não é possivel ter quando temos um ambiente multiusuário (meu caso na empresa) responder para .... paulo.gesse@usiminas.com paulo gesse da costa 18/02/2020 15:31:56 utilizo banco de dados accdb em ambiente multi usuário. como fazer para "quebrar conexões" quando precisar fazer alterações no bd? ha sugestões.? Elias Santos 12/01/2020 16:58:33 Dica excelente e muito bem explicada. Já estou pensando em migrar do 2003 para o 2007/2010. Muito Obrigado Avelino |
