[Resolvido]Esconder barra de menus de 2007

Bons dias,

Instalei uma aplicação de 2003 num PC com 2007 e correu bem. No entanto surge-me A enoooooorme barra de menu Base do 2007 no inicio da aplicação.

Já tentei descobrir como desactivá-lo ou escondê-lo de cada vez que a aplicação inicia mas não consegui? Tentei por exemplo com o Aplication.SetOption mas não cheguei lá.

Podem-me dar uma ajuda?

Um abraço,

Luis Paiva,

Bom dia Luis;

Veja aqui;

http://maximoaccess.forumeiros.com/t1811-resolvidobloquear-designer-e-barra-de-ferramentas

Boa tarde amigo JPaulo,

Desculpas por só agora responder mas onde estava não tinha acesso ao Access.

Já dei uma olhada e apliquei o exemplo que me disse, e pelo que percebi, penso que o mesmo serve pra desabilitar a opção de copiar/colar do menu "Base"do access 2007.

Não sei portanto se não me expliquei bem,ou se não consegui ver a solução a partir do exemplo que me indicou. Como corro em 2007 um ficheiro MDE criado em 2003, apenas me surge, e bem, o menu Base com muitas das funcionalidades bloqueadas.

Porém o que eu procuro éque ao invés de desactivar algumas delas ou todas, essa barra de menú não surgisse de todo ou surgisse tal como o do access 2003.

É que desenvolvi formulários que ocupam o ecrâ todo, e como o do 2007 é muito maior (tem pelo menos três vezes a altura do 2003) esses formulários ficam parcialmente fora do ecrâ. Se necessário, quando eu tiver umaoportunidade exponho o mesmo em imagens para ser mais visivel.

Um abraço,

Luis,

Olá Luis;

Existem realmente muita maneiras de fazer isso no 2007.

A basica é:

1º Clique no botão Microsoft Office e, em seguida, clique em Opções do Access.
2º Na caixa de diálogo Opções do Access, clique em Banco de Dados Atual.
3º De acordo com a Barra de opções, desmarque a caixa de seleção Permitir menus completos.
4º Clique em OK

Hehehe,

Não dá! Tive a experimentar! Iclusivé, já experimentei várias combinações com as 3 hipóteses possíveis mas dá sempre o mesmo! Surge sempre a Barra Base.

Luis,

Dá para obter o resultado desejado por vba tambem. Dê uma olhada no repositório de códigos vba aqui do forum que tem algo sobre lá.

Veja sem barra de Menus;

http://www.speedyshare.com/files/27527060/Luis.rar

Fantástico!

Obrigado mais uma vez pela ajuda. Vai de encontro ao que anteriormente já indicado. Apenas com a diferença de ser tudo junto no evento ao carregar e não separado! Assim já funga!

Um abraço,

Luis Paiva,

Só faltou colocar [Resolvido]. Fiz-o agora.

Boas amigos,

Sorry pela não marcação do resolvido... sou ainda novato. Da próxima não me esqueço.

Afinal, ao criar o MDE em 2003, me dei conta que... não funga...

Apenas permite a última função, as duas primeiras não, impedindo a criação do respectivo MDE. Ou seja as duas ultimas linhas nãopassam no 2003 aquando da criação do MDE.

DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.navigateTo "acNavigationCategoryObjectType"
DoCmd.RunCommand acCmdWindowHide

Terá solução? Desde que me proteja a mdb tal como um MDE de forma a evitar mexidas de curiosos e conseguentes problemas... por mim td bem. Seja ela qual for a solução.

Um abraço

Luis Paiva,

Ele não está permitindo criar o mde, é isso? Se for, pode ser por algum erro de código, algum código referente a controles que não mais existem. Depure o código, abrindo um módulo vba e clicando em Depurar. Se contiver erros, lhe serão mostrados para que você possa corrigi-los. Crie uma cópia de backup antes.

Boas,

Pior!!!!

Só dá erro quando corroo MDE.

Ja fiz o debug, e não dá erro nenhum. Crio o MDE na boa. Quando chamo o MDE dá-me o erro.

Luis,

Não permite criar mesmo.

Porque estes comandos são do Access 2007, e desde que o sistema encontre algo não nativo da versão, jamais irá conseguir converter para MDE.

Isto é do Access 2007

DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.navigateTo "acNavigationCategoryObjectType"
DoCmd.RunCommand acCmdWindowHide

Se você no VBA do Access 2003, for a Debug e Compile irá grifar erros e sempre que grifar, não conseguirá converter.

1º Delete esse comandos.

2º Cole num modulo novo esta função.


Public Function DesabilitaTudo()
On Error GoTo Err_DesabilitaTudo

DoCmd.ShowToolbar "Menu Bar", acToolbarNo
DoCmd.ShowToolbar "Database", acToolbarNo
DoCmd.ShowToolbar "Relationship", acToolbarNo
DoCmd.ShowToolbar "Table Design", acToolbarNo
DoCmd.ShowToolbar "Table Datasheet", acToolbarNo
DoCmd.ShowToolbar "Query Design", acToolbarNo
DoCmd.ShowToolbar "Query Datasheet", acToolbarNo
DoCmd.ShowToolbar "Form Design", acToolbarNo
DoCmd.ShowToolbar "Form View", acToolbarNo
DoCmd.ShowToolbar "Filter/Sort", acToolbarNo
DoCmd.ShowToolbar "Report Design", acToolbarNo
DoCmd.ShowToolbar "Print Preview", acToolbarNo
DoCmd.ShowToolbar "Toolbox", acToolbarNo
DoCmd.ShowToolbar "Formatting (Form/Report)", acToolbarNo
DoCmd.ShowToolbar "Formatting (Datasheet)", acToolbarNo
DoCmd.ShowToolbar "Macro Design", acToolbarNo
DoCmd.ShowToolbar "Utility 1", acToolbarNo
DoCmd.ShowToolbar "Utility 2", acToolbarNo
DoCmd.ShowToolbar "Web", acToolbarNo
DoCmd.ShowToolbar "Source Code Control", acToolbarNo
DoCmd.ShowToolbar "Visual Basic", acToolbarNo

Exit_DesabilitaTudo:
Exit Function

Err_DesabilitaTudo:
If Err.Number = 2094 Then
Resume Next
Else
MsgBox Err.Number & " - " & Err.Description
Resume Exit_DesabilitaTudo
End If

End Function


No evento ao abrir do seu primeiro formulario, coloque:

Private Sub Form_Open(Cancel As Integer)
Call DesabilitaTudo
End Sub


Tente converter para MDE e teste.

Ok obrigado companheiro,

Vou aplicar e depois dou feed-back.

Luis,

Não dánada.

De facto, deixou de dar erro no MDE. Inclusivé adicionei um botao de comando onde inseri o código e tb não funga.

O enoooorne menu do 2007 lá está...

Você só tem duas hipoteses.

Ou cria o MDE na versão 2007 com os codigos iniciais, ou ficará sempre com a barra.

Porque você não converte o .mdb em .accdb, e depois faz o .mde ?

Pensei nisso... mas no 2007 não encontro a opcao criar MDE. Apenas encontro criar ACCDE...

E assim com o ACCDE a base não fica protegida.

A melhor opção até agora que vislumbro, foi instalar o runtime do 2003 no mesmo pc do 2007. Só tenho de inserir o código para evitar as mensagens de consultas, e automáticamente quando abro o mde arranca com o runtime do 2003.

Assim não tenho tido problemas nenhuns. Já vi que muitas das funções do 2003 não dão para o 2007. Aina hà pouco descobri que num objecto OLE para um campo de foto de cliente, feito tb no 2003, no 2007 em mdb funciona, converto para mde.... népia... já depois de confirmar com o debug.

Claro que não é MDE, mas sim ACCDE

ACCDE não fica protegida ?

Peço desculpa,

Fica sim... tal como o MDE do 2003....

Posso sempre esconder quer os formularios, consultas, etc...

Vou dar-me ao trabalho de verificar quais as funções que tenho em 2003 que não funcionam no 2007 e altera-las...

Luis,

Precisando de novo dê um grito.

Ok!

Um abraço,