Código VBA para colocar senha em vários BD Access

Buenas!
Eu tinha mas não encontro mais. Acho que consegui aqui mesmo, um código para colocar senha em diversos bancos Access. Coloco os bancos numa pasta e dou o caminho no código. Vai colocando senha em todos os arquivos .mdb.

Se alguém tiver e puder colocar aqui, agradeço.

Código:

x = InputBoxDK("Dados Protegidos - Digite a Senha")
If x <> "522" Then
MsgBox "A senha não confere.", vbInformation, "Confirmação"
end if
end sub