AFFECTER MOT DE PASSE A UNE BASE ACCESS.

Sub Main()
    Source = "gc.mdb"               (nom base de donnée)
    passwords = Array("banana", "master", "ricky", "ibis", "marsouin") (tous les mots de passe que tu a déclare si un jour tu veux change)
    For i = 0 To UBound(passwords)
        On Error Resume Next
        mpasse = ";pwd=" & passwords(i)
        Set base_de_donnees = OpenDatabase(Source, False, False, mpasse)
        If Err.Number <> 3031 Then
           Exit For
        End If
    Next
    If Err.Number <> 0 Then
       Select Case Err.Number
              Case 3024
                   MsgBox "La base de données est Introuvable dans le Chemin spécifiée"
              Case 3045
                   MsgBox "La base de données ne peut etre ouverte en ce moment " & vbCrLf & " car elle est ouverte en mode exclusif par un autre utilisateur "
       End Select
       Exit Sub
    End If
        menugc.Show            (appelle du menu)
End Sub