[Resolvido]Como alterar a senha do Banco de dados via VBA

No Access 2007, tenho um BE com senha, como alterar via código a senha desse banco?
É claro que tenho a senha atual, mas gostaria de alterar e deve ser através do frontend.

Abraço amigos

Tenho algo aqui TOP porém ainda não testei:


Function ap_DatabasePassword(strDBPassword, strDBPrevPass)
'strDBPassword é a nova senha do banco de dados.
'strDBPrevPass é a senha atual do banco de dados.
On Error GoTo errDatabasePassword
Dim db As DATABASE
Set db = CurrentDb()
'Esta linha atribui nova senha ao bd.
db.NewPassword strDBPrevPass, strDBPassword
'Function successful
Exit Function
errDatabasePassword:
MsgBox "Function 'ap_DatabasePassword' did not complete successfully."
Exit Function
End Function



Saudações

Solução na net...


Private Sub cmdTrocaSenha_Click()
If IsNull(txtNovaSenha1) Then
MsgBox "Informe a nova Senha", vbCritical, "Bloqueio"
ElseIf IsNull(txtNovaSenha2) Then
MsgBox "Informe a nova Senha de verificação", vbCritical, "Bloqueio"
ElseIf txtNovaSenha1 <> txtNovaSenha2 Then
MsgBox "Verifique a Nova Senha", vbCritical, "Bloqueio"
Else
'Troca a senha na Base de Dados
MsgBox
CurrentDb.Containers("Databases").Documents("UserDefined").Properties("Pass").Va\
lue

CurrentDb.Containers("Databases").Documents("UserDefined").Properties("Pass").Va\
lue = txtNovaSenha1
MsgBox
CurrentDb.Containers("Databases").Documents("UserDefined").Properties("Pass").Va\
lue

CurrentDb.Containers("Databases").Documents("UserDefined").Properties("Pass").Va\
lue = txtNovaSenha1
Set Banco =
OpenDatabase(CurrentDb.Containers("Databases").Documents("UserDefined").Properti\
es("LocalTabelasAnexadas").Value, True, False, ";pwd=" & txtSenhaAtual)
Banco.NewPassword txtSenhaAtual, txtNovaSenha1
Set Banco = Nothing
'Troca a Senha no sistema

CurrentDb.Containers("Databases").Documents("UserDefined").Properties("Pass").Va\
lue = txtNovaSenha1
'Revincula com a nova Senha
Call
AtualizarVinculos(CurrentDb.Containers("Databases").Documents("UserDefined").Pro\
perties("LocalTabelasAnexadas"))
MsgBox "Senha Alterada com Sucesso", vbInformation, "Informação"
DoCmd.Close acForm, Me.Name
End If
End Sub




tive que modificar a opção de abertura para Exclusivo

e tive que fechar o banco depois da alteração da senha

e tive que alterar lá no modulo de vinculação
que estava como Private Function AtualizarVinculos(strNomeDoArq As String) As
Boolean
retirei o Private e tudo funcionou perfeitamente.

Olá

Se o front-end estiver vinculado ao back-end não será possível, pois a troca de senha exige abertura do BE no mod EXCLUSIVO

Vc pode criar um bd a parte para alterar a senha do BE

Dim bd As DAO.Database
Set bd = DBEngine(0).OpenDatabase(CaminhoDoSeuBE\NomeBd_Be.accdb", True, False, ";PWD=" & SenhaAtual)
bd.NewPassword senhaAtual, NovaSenha
bd.Close
Set bd = Nothing
MsgBox "Senha atualizada...", vbInformation, "Aviso"

Sucesso!

Interessante Hary! Vou testar este seu código...

Boa tarde Avelino... eu nao cheguei a aplicá-lo.. se o fizer nos brinde com um pequeno exemplo no repositorio...
Saudações

Esta vinculado sim Avelino, irei testar tudo e depois darei retorno, obrogado pelo pronto Atendimento pessoal.

Avelino deu certo, mas agoga preciso fazer isso fechando o FE e abrindo o BD auxiliar depois fechando o bd auxiliar e abrindo o FE, acho que da pra me virar, rs.

Grande abraço e muitíssimo obrigado a vocês, Avelino e Hary!!!

Se usar o código pelo front-end, sem estar acessando qualquer tabela do seu BE, talvez consiga por dentro do front-end.

A outra questão é que terá que refazer os vinculos com a nova senha.

pode então elaborar algo na seguinte sequência:

Deletar As Tabelas Vinculadas
Trocar a senha do Back-End
Refazer os vinculos com a nova senha

veja aqui como remontar os vinculos pela programação

Sucesso!

Faltou o Resolvido. Desta vez eu coloco.

Desculpe Mister Vieira, me empolguei e esqueci, rs