[Resolvido]Esconder Painel de Navegação

Tenho feito algumas buscas sobre este assunto e só consegui encontrar códigos para esconder os menus
DoCmd.ShowToolbar"Ribbon", acToolbarNo este é código que utilizo.
Não haverá um código para esconder o Painel de navegação
interessa-me que seja, especificamente, em código.

Antecipadamente grato

Luís Antunes

Luis, veja se seria algum desses.
Ainda não testei, mais acredito esta ai.

Desabilita tudo:

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
DoCmd.ShowToolbar "Ribbon", acToolbarNo
Application.CommandBars.DisableAskAQuestionDropdown = True

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

Pus o código associado a um botão clik, acontece que que só esconde os menus.
Quanto à macro autoexec tem um incoveniente, preciso sempre de sair da BD para aceder ao painel de navegação
O que eu pretendo é aceder ou não aos menus e painel através de dois botões no form Activar/ Desactivar.

Luís Antunes

Se o codigo passado pelos colegas a cima Faz o que pretende, e desabilita tudo que precisa... Para Habilitar use o mesmo Código, mudando apenas o Final para Yes.
ex:

Botao Desabilita
DoCmd.ShowToolbar"Ribbon", acToolbarNo

Para

Botao Habilita
DoCmd.ShowToolbar"Ribbon", acToolbarYes

Isso determina se esta ou não ativo...

Foi o que eu fiz num código "no" noutro "Yes" Sem aspas é claro.
Se o código de bigfill funciona só se for em módulo.
Vou experimentar com módulo

Luís Antunes

Teste em um BD novo, apenas com essas duas linhas que te passei... Uma em cada Botão... Aqui funciona instantaneamente...

Já pus o código em módulo um call DesactivarTudo no botão, apenas escondeu os menus.
Utilizo o office 2007 e o computador é de 64 bits
O facto de não funcionar a desactivação do painel de navegação terá haver com a versão
do office ou terá algum outro motivo?


Luís Antunes

Fiz o que me aconselhou criei uma bd nova e importei o módulo com o código,
criei um Form com dois botões para activar e desactivar. não funcionou com o painel
Vou envia-lo em anexo para saber se nos vossos pcs funciona

Luís Filipe

Boas
Encontrei este código que esconde o Access:

Código:

Public Function fncOcultarAccess()
Dim lngHwnd As Long
lngHwnd = Application.hWndAccessApp
SetWindowLong lngHwnd, GWL_EXSTYLE, GetWindowLong(lngHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes lngHwnd, 0, 0, LWA_ALPHA
End Function

Luís Antunes