Ouvrir une bd Access chiffrée via Excel
Bonjour,
Je voudrais ouvrir une bd Access depuis Excel, cela fonctionne avec le code ci dessous mais je souhaiterais ajouter un mot de passe à ma bd Access. Comment modifier le code pour que les utilisateurs du fichier Excel n'ai pas à saisir le mot de passe? Autrement dit, quelle est la syntaxe pour intégrer le mot de passe dans mon code? Merci d'avance!!!
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
| Option Explicit
' Variables publiques
Public i As Integer
Public j As Integer
' Répertoire de l'application
Public strFolder As String
' Objets ADO
Private cnnCli As ADODB.Connection
Private rstCli As ADODB.Recordset
Public Function OuvreBase() As Boolean
' Ouverture de la base SPAC.accdb
On Error GoTo Err:
Set cnnCli = New ADODB.Connection
With cnnCli
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Open strFolder & "SPAC.accdb"
End With
On Error GoTo 0
OuvreBase = True
Exit Function
Err:
On Error GoTo 0
OuvreBase = False
MsgBox "Problème lors de l'ouverture de la base SPAC.accdb", vbExclamation
End Function |
