Abrir base de datos Access con password desde la base que estoy trabajando
Publicado por Juan (150 intervenciones) el 28/08/2019 18:05:54
Hola a todos,
A ver si alguien puede ayudarme.
Tengo una base con la que quiero abrir otra que está protegida con password para que solo se pueda abrir desde la que estoy trabajando.
La abro con este código correctamente sin password:
Necesito saber donde puedo añadir la línea con el password, si es que se puede de esta manera, claro.
Gracias
A ver si alguien puede ayudarme.
Tengo una base con la que quiero abrir otra que está protegida con password para que solo se pueda abrir desde la que estoy trabajando.
La abro con este código correctamente sin password:
1
2
3
4
5
6
7
8
9
Option Compare Database
#If VBA7 Then
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#Else
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Comando1_Click()
Dim ruta As String
ruta = Application.CurrentProject.Path & "\Update\Updater.accdb"
Call ShellExecute(Me.hwnd, "Open", ruta, "", "", 1)
DoEvents
DoCmd.QuitEnd Sub
Necesito saber donde puedo añadir la línea con el password, si es que se puede de esta manera, claro.
Gracias
Valora esta pregunta
0