[Resolvido]Abrir e fechar painel de navegação via VBA

Olá galera boa tarde!

Gostaria de saber se tem como abrir ou fechar o painel de navegação do access 2007 pelo vba, sem precisar usar as opções do access?

Desde ja agradeço

Boa tarde..

use esse código.

Private Sub Form_Load()

'SelectObject usado para dar o foco ao Painel de Navegação
DoCmd.SelectObject acForm, "Nome de um formulário", True
'Ocultando janela com o foco
DoCmd.RunCommand acCmdWindowHide

End Sub

Ou este com modulo

Public Sub SetStartupOptions(propname As String, propdb As Variant, prop As Variant)
On Error Resume Next

Dim dbs As Object
Dim prp As Object
Set dbs = CurrentDb

dbs.Properties(propname) = prop
If Err.Number = 3270 Then
Set prp = dbs.CreateProperty(propname, propdb, prop)
dbs.Properties.Append prp
End If

Set dbs = Nothing
Set prp = Nothing

End Sub


Para ocultar:

Call SetStartupOptions("StartupShowDBWindow", dbBoolean, False)

Ola boa noite

A barra que eu falei é a que fica na lateral é o painel de navegação, aqui não deu certo, pq não da execução o código.

Veja se ajuda com algumas imagens.

http://www.usandoaccess.com.br/dicas/dica16.asp?id=1#inicio

Bom estudo!

Boa noite Avelino....

se não vai de um jeito...vai do outro...

abraços.

Blz a parte do menu do access eu vi, agora da pra montar o código completo pq eu sou meio leigo em VBA?

Valeu pela resposta

Avelino valeu mesmo ajudou muito seu tópico, eu fiz o seguinte com seu código:

Para habilitar o painel de navegação:

Public Function fnchabilitar()
If InputBox("DIGITE A SENHA DO ADMINISTRADOR", "Senha de acesso") <> "123" Then
MsgBox "Senha incorreta. Tente novamente", vbCritical, "Erro"
Else
MsgBox "SEJA BEM VINDO"
DoCmd.ShowToolbar "ribbon", acToolbarYes
DoCmd.OpenForm "TELA PRINCIPAL", , , , acFormAdd
DoCmd.SelectObject acForm, , True
End If

End Function

Para desabilitar:[u]

Public Function fncDesabilitar()
DoCmd.ShowToolbar "ribbon", acToolbarNo
DoCmd.SelectObject acForm, , True
DoCmd.RunCommand acCmdWindowHide

End Function

Após criar os códigos criei uma macro Autokeys onde com a tecla F1 ela pede a senha que é 123 acertando ela habilita errando não habilita nada, e a tecla F2 desabilita tudo, lembrando que com a mesma macro eu desabilito a tecla F11, assim não tem como habilitar o painel se não souber a senha.

Veja o exemplo.

valeu a todos

Silvio, valeu.... muito obrigado pela dica.