Código VBA: acesso a um arquivo Access com senha

[Marcio Motizuki]

Gostaria de saber como acessar um arquivo do Access com senha de segurança. O código abaixo conecta o aplicativo Excel a uma base Access sem senha. Se colocar uma senha neste arquivo e adicionar usuário e senha ao comando Open (.Open ArquivoAccess, "usuario", "senha"), ele retorna a seguinte mensagem de erro: "Não é possível iniciar o aplicativo. O arquivo de informações do grupo de trabalho está faltando ou foi aberto em modo exclusivo por um outro usuário.".

Public ConexaoAccess As New ADODB.Connection

Function Func_ConexaoAccess(ArquivoAccess As String) As Boolean

Set ConexaoAccess = New ADODB.Connection

Func_ConexaoAccess = False

With ConexaoAccess
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open ArquivoAccess
End With

Func_ConexaoAccess = True

End Function

[Roberto Roca]

Marcio:

Si tenta accesar a Mdb tenta assim:

Set Cnn = New ADODB.Connection

Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & strBase & ";" & _
"Jet OLEDB:Database Password=laclave"

onde strbase é um string onde define o caminho e nome da mdb

para abrir a mdb tenta assim:

Dim db As Database
Dim oAcc As Access.Application
Set oAcc = New Access.Application
Set db = oAcc.DBEngine.OpenDatabase("caminho\basecomsenha.mdb", True, False,
";PWD=suasenha")

Sorte

R.Roca
www.aa-sistemas.eti.br
www.aa-sistemas.eti.br/ayudadeaccess