[Resolvido]Esconder Access

Olá amigos!

Como faço para esconder a janela do Access (por completo) e deixar apenas meus formulários na tela? (já estão em modo pop up)
Eu gostaria também de reabilitar caso necessário para alterar a base de dados. Por exemplo, usando um login e senha que habilitasse quando fosse autenticado ou usando outros softs para editar o codigo, só gostaria mesmo que fosse possível.

já tentei o codigo abaixo, mas não funcionou (ou eu não usei corretamente)

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm

If Err <> 0 Then
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If

If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
MsgBox "Cannot minimize Access with " _
& (loForm.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "Cannot hide Access with " _
& (loForm.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End Function

Obrigado!

Veja esses Modelos sugerido nesse Post.
https://www.maximoaccess.com/t285-resolvidoformularios-com-fundo-transparente

Olá,

Usei as dicas do site http://usandoaccess.com.br/ e resolvi. Obrigado pela ajuda.
http://usandoaccess.com.br/tutoriais/video-criar-ribbons-access-tabela-usysribbons.asp?id=1#inicio