[Resolvido]Abrir o Access protegido por senha ocultamente

Bom dia meus amigos experte!
Na mensagem 9 do tópico abaixo, o criquio me ensinou como abrir uma planilha
do Excel protegida por senha, diretamente do Access. E tudo ocultamente.
Gostaria de saber como fazer esse procedimento para abrir um arquivo do Access .accdb
protegido por senha, assim como no código do poste abaixo abre a planilha do excel?

Link do tópico
http://maximoaccess.forumeiros.com/t8221-resolvidocomo-verificar-um-aplicativo-aberto-em-foco#66914

Grato pelo apoio

Olá, se a ideia for colocar dados em uma tabela do Access, pode ser feito de várias maneiras, sendo uma delas utilizando ADO e tambem outra utilizando DAO. Eu costumo fazer assim:

Código:

Dim rs As Recordset

Set rs = DBEngine.Workspaces(0).OpenDatabase("C:\DataBase.accdb", False, False, "MS Access;PWD=123456").OpenRecordset("NomeDaTabela", dbOpenTabela)

rs.AddNew ' ou rs.Edit para editar dados. Nesse caso, precisa colocar um SELECT para selecionar o regitro

rs!Campo1DaTabela = Me.Campo1DoForm
rs!Campo2DaTabela = Me.Campo2DoForm
rs!Campo3DaTabela = Me.Campo3DoForm

rs.Update

rs.Close
Set rs = Nothing

Outra forma pode ser tambem assim:

Código:

Dim db As Database
Set db = DBEngine.Workspaces(0).OpenDatabase("C:\DataBase.accdb", False, False, "MS Access;PWD=123456")

db.Execute "INSERT INTO NomeDaTabela(Campo1DaTabela, Campo2DaTabela, Campo3DaTabela) VALUES('" & Campo1DoForm & "','" & Campo2DoForm & "', '" & Campo3DoForm & "')"

db.Close
Set db = Nothing

Genial!!
Mais uma dúvida: No tópico que você me ensinou a abrir
o Excel protegido por senha, há a opção de ocultar ou
não o Excel. Teria essa possibilidade? Por exemplo: Apenas
abrir o Access o protegido por senha, mas não o ocultar?

Grato!

Tente assim:

Código:

Dim dAccess As Object, db As Database
Set dAccess = CreateObject("Access.Application")
dAccess.Visible = True
Set db = dAccess.DBEngine.OpenDatabase("C:\Database.accdb", False, False, ";PWD=123456")
dAccess.OpenCurrentDatabase filepath:="C:\Database.accdb"
Set dAccess = Nothing

criquio, funcionou, mas o banco abre e em seguida
fecha, o que pode ser?

Pus um formulário para inicializar ao abrir e não fechou mais!
Perfeito, muiuto obrigado!

Ótimo. O fórum agradece o retorno.